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-REM_ 
IDENTIFICATION 
PRODUCT ID: AC -T7186A-MC 2 
PRODUCT TITLE: CZTSBAO TSUOS DIAG PART 2 
DEPARTMENT: COMPUTER SPECIAL SYSTEMS/PPG 
DATE: JUNE 06, 1985 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT By DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY OIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THIS IS A POP-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 

OF A_ TSUOS MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11 SYSTEM 

CUNIBUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
TWELVE TEST. TEST 1-9 ARE EXECUTED IN SEQUENCE. TEST 10-12 ARE STAND ALONE TEST 
WHICH ALLOW THE OPERATOR TO PERFORM SPECIFIC FUNCTIONAL TEST ON SCOPE LOOPS 

ON CERTAIN FUNCTIONS. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XxXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 


PDP-11 PROCESSOR AND MEMORY 

CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 

(28K USEABLE AND 4K RESERVED FOR I/0 PAGE) 

TSUOS MAGTAPE SUBSYSTEM (DRIVE ANDO CONTROLLER) 

CONSOLE TERMINAL 

POP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
POF -11 DIAGNOSTIC LOADER/MONITOR (XXOP-) 


1.3 RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


1. CHQUS XXDP+ USERS GUIDE; DOCUMENT NUMBER AC -F 348E -MC 
DATE: 14 JULY 1980. 


2. TSUOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK -TS10S5-UG-001 
DATE: AUGUST 1982 


3. TSUOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSUOS-TM-001 
DATE: AUGUST 1982 


4. TSUOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSUOS-IN-OOL 
DATE: AUGUST 1982 

1.4 OIAGNOSTIC HIERARCY PREREQUISITES 

FUNCTIONAL PDP-11 CENTRAL PROCESSOR AND MEMORY 


FUNCTIONAL CONSOLE TERMINAL 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
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FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXOP-+ ) 


1.5 ASSUMPTIONS 

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

THE TAPE BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
CZTSAA HAS RUN SUCESSFULLY. 

2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XxXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INVE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (CALL UNITS ARE 
CONSIDERED TO BE AC: IVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION CIF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLeAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE _— so 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START 


2.1.1 OPERATOR COMMANDS 


THE TSUOS DIAGNOSTIC IS A POP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. ALL _LOADTNG AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 


CHQUS XXDP+ USERS ( TOE,DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC MEDIA 


.R VTS6?? 
DIAG. RUN-TIME SERVICES REV D. APR 79 
CZTSB-A-O 


SEQ 004 


Fi 
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#eeeTSUOS LOGIC DIAGNOSTICeses 
=" IS TSUOS 
> 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDO”. 


SWITCH EFFECT 


7-|e2e22ee @&# &# & #&#&# #§ &§= # # § ee were wreseeeesneeeereseseeseaseeanseee 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF je | 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL nor BE RUN. 
/PASS :DDD00 EXECUTE DODDD PASSES (ODDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 


7EOP :DDD0D REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 


IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 CUNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 

START/TESTS:1-5/PASS: 1000/E0P: 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5S WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-5” INSTEAD OF “/TESTS:1-5". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


sESTS PASS FLAGS EOP UNITS 


2.3 FLAGS 
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FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 
HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 
. LOE LOOP ON ERROR 
IER* INHIBIT ALL ERXOR REPORTS 
IBRe INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IxXEe INHIBIT EXTENDED ERROR REPORTS ( THOSE 
CALLED BY PRINTX MACRO’S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IDR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) 2?” 

YOU MUST ANSWER “Y“ AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE “CHANGE HW?” QUESTION TO ASK IF 


THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


SEQ 006 


Hi 
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ON A “N“ (NO) RESPONSE TO THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL 
RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 


TSBA/TSOB = 172520, VECTOR = 224 


ON A “Y" CYES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A “(D0)” IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A_ RESPONSE. AN "(OQ)" INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN “(L)” INDICATES THAT A LOGICAL RESPONSE IS TO ®BE MADE: 
“ye FOR Yes, “N" FOR NO. 


@ UNITS (0D) 2? <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> - 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSUOS CONTROLLERS PER 11 AND UP TO 2 DRIVES PER CONTROLLER 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY “CHANGE SW (L) ?” 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

“Y", THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N 2? <TYPE “Y” TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 
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2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A_TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 
A DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7. THERE 
TS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


@ UNITS (0) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ®@ (0) ? 1<CR> 
Q-FACTOR (0) 1 ? O<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ® (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNI 


T4 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ® (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 

CSR ADDRESS (0) ? 160000<CR>. 
SUB-DEVICE @ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 
CSR ADDRESS (¢ 


0) ?_ 160000<CR> 
SUB-DEVICE # (0) ? S<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 : 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6<CR> 

Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR ADDRESS (0) 160000<CR> 


SEQ 008 


Jl 
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SUB-DEVICE @ (0) ? 7«<CR> 
Q-FACTOR (0) 1 ? «CR» 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
Sane THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


@ UNITS (D0) 2? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6,7<CR> 
Q-FACTOR (0) 0 2? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TwO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

“-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2. 3, 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


® UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) 
SUs-DEVICE @ (0 
Q-FACTOR (0) 0 


? 160000<CR> 
) ? O-7«<CR> 
? 0,1.0....1.,1<CR> 


K1 
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AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP-+ 


2. GIVE Tet DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


TYPE “START” 

ANSWER THE “CHANGE HW” QUESTION WITH “Y” 
ANSWER ALL THE HARDWARE QUESTIONS 
ANSWER THE “CHANGE SW” QUESTION WITH “N” 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED By 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXx 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = | ag NUMBER 
UNIT NUMBER = - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = Test AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “IER”, “IBR” OR “IXR” FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


vn ow & 
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3.2 SPECIFIC ERROR MESSAGES 


BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAMPLE 1 


THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 
INCORRECT REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


DATA, 


TST: 016 FIFO EXERCISER TEST 


CZTSB HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 


FIFO STATUS CIN WORD 9) INCORRECT AFTER WR 


TAPE BUS SIGNALS IN WORD 98: - DESIGNATOR 
PARERR<15> IEOT <12> If <9> IRDY<6> 
IRESV2<14> IIDENT<11> IHER <8> IONL<5S> 
IRESV1<13> ICER <10> ISPEED<7> ILOP<4> 


@9: 
DATMIS<7> ILW<6> OUTRDY<S> INRDY<4> 
MESSAGE BUFFER ADDRESS = 047352 
a Sem gh Ag CONTENTS: 


ITE FIFO 


<BIT > 
IRWO<2> 
IFBY<1> 
IFPT<O> 


WORD XPD: 100020 RECV: 100020 XOR: 000000 
WORD #1 EXPD: 000012 RECV: 000012 xXOR: 000000 
WORD #2 EXPD: 000000 RECV: 000000 xXOR: 000000 
WORD #3 EXPD: 000010 RECV: 000010 xXOR: 000000 
WORD #4 EXPD: 000000 RECV: 000000 xXOR: 000000 
WORD #5 EXPD: 000000 RECV: 000000 XOR: 000000 
WORD #6 EXPD: 000000 RECV: 000000 xOR: 000000 
WORD #7 EXPD: 000000 RECV: 000000 * 8: 000000 
WORD - EXPD: 070217 RECV: 070217 xXOR: 000000 


ERROR MESSAGE EXAMPLE 2 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS 
INSTANCE A UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 


MAY BE DEFECTIVE. 


CZTSB HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 


EXPD: 000074 RECV: 000034 xOR: 000040 


TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 


TSSR = 100214 
TSSR BITS SET: SC,SSR 


TERMINATION CLASS CODE = UNRECOVERABLE ERROR 


PACKET ADDRESS = 026420 
PACKET WORD @ = 
PACKET WORD @ = 000010 
PACKET WORD # = 
PACKET WORD @ + 


SEQ O11 
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ERROR MESSAGE EXAMPLE 3 


THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 


CZTSB HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND CEXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESS®GE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (PDP-11) 


DR-STA/FLA:PNT : HOE : VAM 

UNITS (0) ? 1 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 


THE ABOVE COMMAND WILL START THE OIAGNOSTIC. THE COMMAND HAS THREE 
SWITCHES ON WHICH ARE “PRINT — TEST NBR AS EXECUTED” , “HALT ON 
ERROR” AND “RUN IN UNATTENDED MODE” 


NOTE: THE UAM FLAG SHOULD BE USED TO PREVENT TEST 10-12 FROM BEING 
EXECUTED UNLESS THE OPERATOR WANTS THESE SPECIFIC TEST. 


TST: 001 INITIALIZE #3 TEST 

TST: 002 BASIC WRITE SUBSYSTEM MEMORY TEST 

TST: 003 DMA MEMORY ADDRESSING TEST 

TST; 004 RAM EXERCISER TEST 

TST: OOS FIFO EXERCISER TEST 

TST: 006 STATIC TRANSPORT BUS CHECK 

TST: OO7 TRANSPORT BUS INTERFACE CHECK VIA LOOPBACK TEST 
TST: 008 READ/WRITE DATA PARITY CHECK TEST 

TST: 009 MISCELLANEOUS LOGIC CHECKS TEST 

TST: 010 STAND-ALONE MANUAL INTERVENTION NOT EXECUTED TEST 
TST: O11 STAND-ALONE CONFIGURATION TYPEOUT NOT EXECUTED TEST 
TST: 012 STAND-ALONE SCOPE LOOPS NOT EXECUTED TEST 


USER DOCUMENTATION 
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© ERRORS 


NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS LIMIT HAS BEEN 
SPECIFIED WITH THE “/PASS:” SWITCH. 


PROGRAM RUN TIMES 


THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. ry: FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A POP-11 
PROCESSOR WITH A LA-34 CONSOLE. 


THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED By 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A “Y” (YES). 


TEST N/I ITER DEF 
NUMBER SECS. SECS SECS. 

1 1S so 35 
2 1 6 S 
3 1 1 ° 
4 110 540 430 
bs) 1 10 9 
6 10 120 110 
7 1 3 
8 15 15 12 
9 17 17 13 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 9 IN ONE COMMAND: 
Q.V. 2 MINS 19 SECONDS 
DEFAULT 11 MINS 35 SECONDS 
5.0 DEVICE INFORMATION TABLES 
WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMMAND, 
THE SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGES : 
CHANGE HW (L) ? 


® UNITS (D0) ? <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADORESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKEC FOR EACH OF THE NUMBER OF 


SEG 015 


USER DOCUMENTATION 


TEST 


1: 


TEST 2: 


TEST 


TEST 


3: 


Be 
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UNITS (CONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 


IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
eine CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 
L 8 


CHANGE SW (L) ? 


+ 


6.0 TEST SUMMARIES 
INITIALIZE AFTER WRITE CHARACTERISTICS 
TEST DESCRIPTION: 


THIS TEST VERIFIES THAT A HARDWARE INITIALIZE COMMAND 
INVOKED AFTER A WRITE CHARACTERISTICS COMMAND SETS UP 
THE COMMAND, MESSAGE AND CHARACTERISTIC IMAGE BLOCKS 
IN THE CONTROLLER RAM CORRECTLY. 


BASIC WRITE SUBSYSTEM MEMORY COMMAND 


THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A 
BSELO SELECT CODE OF 0 (NO-OP) EXECUTES CORRECTLY. IT ALSO 
VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO 
MODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
COMMAND DECODING AND HANOLING SEQUENCES. 


DMA MEMORY ADDRESSING 


THIS TEST VERIFIES THAT THE CONTROLLER CAN PROPERLY ADDRESS AND 
ACCESS ALL AVAILABLE CPU MEMORY (OTHER THAN THAT OCCUPIED By THE 
DIAGNOSTIC AND DIAGNOSTIC SUPERVISOR CODE) FOR BOTH READING (DATI) 
AND WRITING (DATO). VERIFIED ARE THE LSI-11 BUS ORIVERS FOR ALL 
AVAILABLE ADDRESS LINES. UP TO THIS POINT ONLY 16 BITS HAVE BEEN 
USED FOR OMA TRANSFERS. 


OPP rrrrrrrrrrririririrririiiiiririiittiiti tit tty 
CAUTION 
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES 
ARE ONLY CHECKED WHEN RUNNING ON A 118 SYSTEM WITH MORE THAN 
128K WORDS OF MEMORY! 


SESSSEOHOHEEEEEEOHESESSEEEEEESEHSEASHESOHSEESHESEHEEESEEHEEEHEOHEHHEEHHEOS 


4; RAM EXERCISER TEST 


SEQ 014 
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5: 


7: 


9: 
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THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256 
LOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND 
TO EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC 
EXTENDED FEATURES SWITCH AND TIMERS A,B 

TEST DESCRIPTION: 

THIS TEST VERIFIES THE INVERT EXTENDED FEATURES FUNCTION 
CAN LOGICALLY INVERT THE EXTENDED FEATURES SWITCH AND 

THAT THE INTERNAL TIMERS A AND B OPERATE CORRECTLY. 

FIFO EXERCISER 

TEST DESCRIPTION: 

THIS TEST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 
VERIFY THE CONTROLLER'S FIFO AND ASSOCIATED STATUS AND 
CONTROL LOGIC. 

STATIC TRANSPORT BUS INTERFACE TEST 

TEST DESCRIPTION: 

WRITE TO TSSR REGISTER TO SOFT INITIALIZE THE CONTROLLER 


DO WRITE CHARACTERISTICS TO CHECK FOR EXTENDED FEATURES SWITCH 
IF EXTENDED FEATURES HARDWARE SWITCH CLEAR THEN: 


DO WRITE SUBSYSTEM WRITE MISCELLANEOUS TO SET EXTENDED FEATURES. 


DO WRITE CHARACTERISTICS TO SELECT RESERVED UNIT 7 
DO A WRITE SUBSYSTEM READ STATUS 
IF ANY TRANSPORT INTERFACE SIGNALS ARE ASSERTED THEN PRINT ERROR 


TRANSPORT BUS INTERFACE LOOPBACK TEST 
TEST DESCRIPTION: 


THIS TEST VERIFIES THE CONTROLLER'S TRANSPORT BUS 
DRIVERS, RECEIVERS, AND SIGNAL LOOPBACK LOGIC. NOTE 
THAT THE STATIC TRANSPORT BUS TEST MUST HAVE RUN 
CORRECTLY FOR THIS TEST TO PROVIDE MEANINGFUL RESULTS. 


READ/WRITE DATA PARITY TEST 
TEST DESCRIPTION: 


THIS TEST VERIFIES THAT THE WRITE DATA PARITY GENERATOR 
AND THE READ DATA PARITY CHECKER OPERATE PROPERLY. THE 
TRANSPORT BUS SIGNAL LOOPBACK MODE IS ENABLED AND A 

SET WRONG PARITY FUNCTION IS EXECUTED. THEN VARIOUS 
WRITE SUBSYSTEM MEMORY FUNCTIONS ARE PERFORMED TO 
WRITE DATA TO AND FROM THE FIFO IN LOOPBACK MODE. 

THE PROGRAM THEN CHECKS TO INSURE A READ DATA PARITY 
ERROR OCCURRED. 

A RESET FIFO IS DONE AND THE READ DATA PARITY 


SEQ 015 


De 
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ERROR BIT IS AGAIN TESTED TO INSURE IT CLEARED. 
FINALLY A CLEAR WRONG PARITY FUNCTION IS DONE 
AND IT IS VERIFIED THE DATA WORD CAN PASS IN LOOPBACK 
MODE WITHOUT SETTING READ DATA PARITY ERROR. 


TEST 10: MANUAL INTERVENTION 


THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A “TEST”) 
THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF 
THE SUBSYSTEM THAT CANNOT BE MANIPULATED B) THE PROGRAM ALONE. WHEN 

THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 

SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 

THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
ARE BY TYPING <CTRL-C> OR SELECTING CODE 6. 

SELECTION CODES AND SUSROUTINES ARE: 


CODE ROUTINE 


HELP. PRINTS THIS MENU. 

TURN ON ALL M7455 LED INDICATORS 
TURN OFF ALL M7455 LED INDICATORS 
OFFLINE/ONLINE ATTENTION TEST 
WRITE-PROTECT TEST 

PRINT EXTENDED TRANSPORT STATUS 
EXIT CRETURN TO SUPERVISOR) 


OUia wrod 


TEST 11: CONFIGURATION TYPEOUT 


THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 
THE CONFIGURATION OF THE M7455 MODULE AND TSUOS SUBSYSTEM. SPECIFICALLY, 
THE FOLLOWING INFORMATION IS PRESENTED: 


1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7455: ON (EXTENDED 
FEATURES ENABLED) OR OFF CEXTENDED FEATURES DISABLED), 


2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7455: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 


3.0 MICROCODE REVSION LEVEL OF THE M7455, 
4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 


5.0 UNIT SELECT CODE AND STATE (ONLINE/OFFLINE, WRITE ENABLED/PROTECTED) 
OF EACH CONNECTED TRANSPORT. IN ADDITION, THE PROGRAM WILL INDICATE, 
FOR EACH ON-LINE TRANSPORT, WHETHER OR NOT IT IS EQUIPPED WITH THE 
EXTENDED TAPE STATUS READOUT FEATURE. 


TEST 12: SCOPE LOOPS 


THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT “SCOPE 
LOOPS” USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
THE M7455 MODULE. THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL 
“LOOP ON ERROR” OR “LOOP ON TEST (SUBTEST)” FACILITIES DON'T 


SEQ 016 
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SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TESTS (I.E, THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER 
ACCESS, CAUSING A BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADDRESS 
SELECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE 
HARDWARE DIP SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS ARE 


AVAILABLE: 
CODE 


NOU SWMro 


SCOPE LOOP 


HELP. PRINT THIS MENU, 

TSBA READ ACCESS 

TSSR READ ACCESS 

INITIALIZE (TSSR WRITE ACCESS) 

TSOB HIGH BYTE WRITE ACCESS 

TSOB LOW BYTE WRITE ACCESS 

TSDB MAINTENANCE -MODE WORD WRITE ACCESS 

TSDBX (TSSR HIGH BYTE) WRITE ACCESS 
CEXTENDED FEATURES SWITCH MUST BE ON 
TO USE SELECTION CODE 7) 

EXIT CRETURN TO SUPERVISOR) 


FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN,LIMITS ON THE DATA PATTENS 


ARE 0-377, TYPING <RETURN> CAUSES AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 


7.0 MAINTENANCE HISTORY 


REVISION A - JUNE 1983 


SEQ 017 


TSv2 


- PROGRAM HEADER 


002000' 


001217 
101112’ 
101244' 
002156' 
002166° 
101340’ 
000000 
000000 
000000 
000000 
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. TITLE 
- SBTTL 
-PSECT 


TSVe:: 


Fe 


TSV2 - PROGRAM HEADER 
oe HEADER 


svc 


s INITIALIZE SUPERVISOR MACROS 


zoe 
g ; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: ; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


ADER 
" ASCII 
.ASCII 
-ASCII 
-ASCII 
-ASCII 
.BYTE 
-BYTE 
LSREV:: 
L$DEPO: 
LSUNIT:: 
LSTIML:: 
LSHPCP:: 
L$SPCP:: 
LSHPTP:: 
LSSPTP:: 
LSLADP:: 
LSSTA:: 
L$Co:: 
LSDTYP:: 
LSAPT:: 


LSDTP:: 


: L $NAME : 


ao BGNSW,BGNSF T ,BGNAU, BGNDU, BGNRPT 


CZTSB,.A,0,655..0 


7C/ 
42/ 
4T/ 
4S/ 
/B/ 


L$HARD 
L$SOFT 
L $HW 
L$Sw 
LSLAST 


oo 98 


sOIAGNOSTIC NAME 


sREVISION LEVEL 

30 

sNUMBER OF UNITS 

sLONGEST TEST TIME 
sPOINTER TO H.W. QUES. 
sPOINTER TO S.W. QUES. 
sPTR. TO DEF. H.W. PTABLE 
sPTR. TO S.W. PTABLE 
sOIAG. END ADDRESS 
sRESERVED FOR APT STATS 


sDOIAGNOSTIC TYPE 
;APT EXPANSION 
:PTR. TO DISPATCH TABLE 


SEQ 018 


Ge 
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PROGRAM HEADER 


002040 002124’ -WORD LSDISPATCH 
002042 LSPRIO:: sOIAGNOSTIC RUN PRIORITY 
002042 000000 . WORD 
002044 LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 
002044 000000 . WORD 
002046 LSEXP1:: sEXPANSION WORD 
002046 000000 ' -WORD O 
002050 LSMREV:: ;SVC REV AND EDIT @ 
002050 003 .BYTE CSREVISION 
002051 003 -BYTE CSEDIT 
002052 LSEF:: ;0IAG. EVENT FLAGS 
002052 000000 -WORD O 
002054 000000 -WORDB O 
002056 L$SPC:: 
002056 000000 -WORD 0O : 
002060 LSDEVP:: s POINTER TO DEVICE,- TYPE LIST 
002060 003402’ -WORD LSDVTYP ; 
002062 LSREPP:: sPTR. TO REPORT CODE 
002062 022434' «WORD LSRPT 
002064 LSExP4:; 
002064 000000 -WORD O 
002066 LSEXPS:: 
002066 000000 WORD O 
002070 L$SAUT:: sPTR. TO ADD UNIT CODE 
002070 022122’ -WORD LSAU 
002072 LSDUT:: sPTR. TO DROP UNIT CODE 
002072 022220’ -WORD LSDU 
002074 LSLUN:: ;LUN FOR EXERCISERS TO FILL 
002074 000000 -WORD O 
002076 LSDESP:: sPOINTER TO DIAG. DESCRIPTION 
002076 003410’ -WORD LSDESC 
002100 L$LOAD:: sGENERATE SPECIAL AUTOLOAD EMT 
002100 104035 EMT ESLOAD 
002102 LSETP:: sPOINTER TO ERRTBL 
002102 000000 -WORD O 
002104 LSICP:: sPTR. TO INIT CODE 
002104 021326’ -WORD LS$INIT 
002106 LSCCP:: sPTR. TO CLEAN-UP CODE 
002106 022406' -WORD LSCLEAN 
002110 LSACP: ; :PTR. TO AUTO CODE 
002110 022326’ -WORD LSAUTO 
002112 LSPRT:: sPTR. TO PROTECT TABLE 
002112 021316’ -WORD LS$PROT 
002114 LSTEST:: ; TEST NUMBER 
002114 000000 -WORD O 
002116 LSOLY:: ;DELAY COUNT 
002116 000000 -WORD O 
002120 LSHIME:: ;PTR. TO HIGH MEM 
" 002120 000000 -WORD O 
32 -SBTTL OISPATCH TABLE 
3a 
see 
35 ; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
4 ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
— 


TSV2 - PROGR 
DISPATCH TABLE 


39 


AM HEADER 


002122 


002154 
002154 
002156 
002156 


002156 
002160 
002162 
002164 
002164 


002164 
002164 
002166 
002166 


002166 
002170 


002172 
002174 
002176 
002176 


002176 


000014 
023216' 


000200 


He 
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DISPATCH 12 
-WORD 12 
LSDISPATCH: : 
-WORD Ti 
«WORD T2 
-WORD 13 
-WORD 14 
-WORD TS 
-WORD T6 
«WORD 17 
-WORD T8 
-WORD 19 
«WORD 110 
-WORD Til 
WORD Ti2 


-SBTTL DEFAULT HARDWARE P-TABLE 


see 

; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
+ IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


BGNHW OFPTBL ;DEFAULT HARD-P-TABLE 
-WORD  1L10000-L$HW/2 


L$SHW: : 

DFPTBL 
.» WORD 172520 ; 1ST COF 2) REGISTERS. 
.» WORD 224 ; INTERRUPT VECTOR 
. WORD PRIO4 3; INTERRUPT PRIORITY. 
ENOHW 

L10000: 


-SBTTL SOFTWARE P-TABLE 
zee 
3; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
3; PARAMETERS THAT CAN BE CHANGED BY THE SPGRATER. 


gc 
BGNSW SFPTBL 
-WORD 110001 -L$SW/2 


L$SW:: 
SFPTBL:: 
TRANSTST:: . WORD 0 3; ENABLE TEST OF TRANSPORT(S) IF =1 
NOITS:: .» WORD 10) 3 i Lied gy OPTION, 
.. ees s 
Hy -NZ = INHIBIT ITERATE. 
LERRMAX: : WORD 15. Fy LOCAL (PER TEST) ERROR LIMIT 
GERRMAX: : . WORD 200. ; GLOBAL (PER WNIT) ERROR LIMIT 
ENDSW 
10001: 
ENDMOD 


SEQ 020 


TSV3 - GLOBAL AREAS 
- TABLE 


SOFTWARE P-T 


20 002176 
002176 


33 002176 
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TSV3:: 


3¢ 
: THE GL 


le 


7:02 


-TITLE TSV3 - GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


Tsv3 


-SBTTL GLOBAL EQUATES SECTION 


OBAL EQUATES SECTION — PROGRAM EQUATES THAT 


; ARE USED IN MORE THAN ONE TEST 


EQUALS : GET STANDARD EQUATES. 


; 
; BIT OIFINITIONS 


; 
BIT15== 
BIT14== 
BIT13== 
BITl2== 
BIT11== 
BIT10== 
BITO9== 
BITOS== 
BITO7== 
BITO6== 
BITOS== 
BITO4== 
BITO3== 
BITO2== 
BITO1== 
BITOO== 


q 
BIT9== 
BIT8== 
BIT7== 
BIT6== 
BITS== 
BIT4== 
BIT3== 
BIT2== 
BIT1== 
BITO== 


3 
; EVENT 


FLAG DEFINITIONS 


s EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


; 
EF .START 


EF .RESTART== 31. 


EF .CONTI 
EF .NEW== 
EF .PWR== 
‘ 
; 


se 32. : START COMMAND WAS ISSUED 

s RESTART COMMAND WAS ISSUED 
NUE== 30, ; CONTINUE COMMAND WAS ISSUED 

; A NEW PASS HAS BEEN STARTED 

+ A POWER-FAIL/POWER-UP OCCURRED 


SEQ 021 


Je 
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GLOBAL EQUATES SECTION 


s PRIORITY LEVEL DEFINITIONS 


. 
000340 PRIO7== 340 
000300 PRIO6== 300 
000240 PRIOS== 240 
000200 PRIO4== 200 
000140 PRIOS*= 140 
000100 PRIO2*= 100 
000040 PRIO1L== 40 
000000 PRIOO== 0 
7 
sOPERATOR FLAG BITS 
000004 EVL== 4 
000010 LOT=s= 10 
000020 ADR== 20 
000040 IDUs= 40 
000100 ISR== 100 
000200 UAM== 200 
000400 BOE== 400 
001000 PNT == 1000 
002000 PRI== 2000 
004000 IXE== 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
35 002176 KT1il1 ee ;DEF INE MEMORY MANAGEMENT REGISTERS 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 
:#KT11 VECTOR ADDRESS 
000250 MMVEC= 2 
3#KT11 STATUS REGISTER ADDRESSES 
177572 SRO= 177572 
177574 SR1= 177574 
177576 SR2= 177576 
172516 “ ¥ 172516 


UIPORO= 

UIPOR1« 177602 
UIPOR2= 177604 
UIPOR3= 177606 
UIPOR4= 177610 
UIPORS= 177612 
UIPOR6= 177614 
UIPDR7= 177616 


s*USER “D” +. DESCRIPTOR REGISTORS 
UDPDORO= 177620 

UDPDR1= 177622 

UDPOR2= 177624 

UDPORS= 177626 

UDPDR4= 177630 

UDPORS= 177632 

UDPOR6= 177634 

UDPOR7= 177636 


TSV3 - GLOBAL AREAS 
MEMORY MANAGEMENT DEFINITIONS 


- ENOC 
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Ke 


USER “I” PAGE ADDRESS REGISTERS 


UIPARO= 


177640 

177642 
177644 
177646 
177650 
177652 
177654 
177656 


3#USER “D” PAGE ADDRESS REGISTERS 


UDPARO= 


SOPDRO= 


177660 
177662 
177664 
177666 
177670 
177672 
177674 
177676 


;¢SUPERVISOR “I” 


SIPARO= 


172240 


;#SUPERVISOR ~“D” 


SOPARO= 
SDOPAR1= 
SDPAR2= 


172260 
172262 
172264 


PAGE DESCRIPTOR REGISTERS 


PAGE DESCRIPTOR REGISTERS 


PAGE ADDRESS REGISTERS 


PAGE ADDRESS REGISTERS 


SEQ 023 


TSv3 
ME 


- GLOBAL 


AREAS 


172316 


172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 


000004 


Le 
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SDPARS= 172266 
SDPAR4= 172270 
SOPARS= 172272 
SOPAR6= 172274 
SOPAR7= 172276 


NB 
;@KERNEL “D” PAGE 
DESCRIPTOR REGISTERS 
KDPDRO= 172320 


KIPARO= 172340 


NB 
;#KERNEL “D” PAGE ADDRESS REGISTERS 
KDPARO= 172360 
KOPAR1= 172362 
KDPAR2= 172364 
KDPAR3= 172366 
KDPAR4= 172370 
KDPARS= 172372 
KDPAR6= 172374 
KOPAR7= 172376 
-ENOC 


.SBTTL TSUOS REGISTER AND PACKET DEFINITIONS 
+ 
; SOME GENERAL EQUATES. 


4 
ERRVEC== 6 


; POINTER TO ERROR VECTOR FOR BUS TIME OUT. 


SEQ 024 


T8U05 REGISTER AND PACKET DeFintttons’: “©2-84 17:02 


000060 
177560 
177562 
177520 


TTIVECs= 
TTICSR== 
TTIBFR== 
BOVPCR== 


60 
177560 


177562 
177520 


Me 


+ INTERRUPT VECTOR FOR CONSOLE INPUT 
+ BUS ADORESS OF CONSOLE INPUT 

s+ CONSOLE INPUT OATA BUFFER 

s BDV11 PAGE CONTROL REGISTER 


3° 
s;BIT DEFINITIONS FOR TSSR REGISTER 


3¢ 


BIT1C 
BIT9!BITS 
BIT7 


BIT6 
FATERR= BIT4!BITS 
TERCLS= BITS!BIT2:BIT1 


sSPECIAL CONDITION 

sBUS INTERFACE ERROR 

sSANITY CHECK ERROR 

On FICATION REFUSED 
XISTANT MEMORY ERROR 

SNEED BUFFER ADDRESS 

sEXTENDED ADORESS BITS 

sSUB SYSTEM READY ~ 

sOFF LINE BIT 

sFATAL TERMINATION ERROR CODES 

3 TERMINATION CODES 


3 
s;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 


3(XSTO) 
; 
ge 


XSOTMK= 
XSORLS= 
XSOLET= 
XSORLL = 
XSOWLE = 
XSONEF = 
XSOILC= 
XSOILA= 
XSOMOT = 
XSOONL = 
XSOIE= 

XSOVCK= 
XSOPED= 
XSOWLK = 
XSOBOT = 
XSOEOT= 


+ TAPE MARK DETECTED 


sWRITE LOCK ERROR 
sNON EXECUTABLE FUNCTION 
sILLEGAL COMMAND 
sILLEGAL ADDRESS 
sTAPE IN MOTION 

s TRANSPORT ON LINE 

s INTERRUPT ENABLE 
sVOLUME CHECK BIT 
sPHASE ENCODED ORIVE 
sWRITE LOCKED 
sBEGINNING OF TAPE 
sEND OF TAPE 


3¢ 
sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 


3(XST1) 
3° 
X1.OLT 


X1.COR 
X1.MBZ 
X1.RBP 
X1.UNC 


* BIT15 
X1.SPARE= BIT14 


BIT13 3C 
BIT12+BIT11-B1110-B119+8117 +BIT6-BITS+BIT4+BITS.BIT2.81TO sALWAYS O 


BIT1 


;DATA LATE 
sNOT USED 
ORRECTABLE DATA ERROR 


READ BUS PARITY ERROR 
;UNCORREC TABLE DATA OR HARD ERROR 


SEQ 025 


Ne 
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ANO PACKET DEFINE TONS 58, Cas 
3 
sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
3(xST2) 
3- 
100000 X2.0PM «= BIT15 oN came IN PROGRESS (TAPE MOVING) 
040000 xX2.RCE = BIT14 AM CHECKSUM ERROR 
035400 X2. SPARE = BITLS-6rTi2erfi1-8119-BiTe ;NOT USED BY TSUOS CALWAYS=-0) 
x2.WCF = BIT1O WRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
000200 X2.EXTF = BIT7 . VIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
000100 xX2.BUFE = BIT6 ; IF eat be CHAR CMD THEN = BUFFERING ENABLED 
000077 X2.REV = 000077 : IF ITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
000007 X2.UNIT = BIT2-BIT1+BITO. 3 IF “oT STATUS THEN = CURRENTLY SELECTED UNIT NO. 
3¢ 
4 INITIONS FOR EXTENDED STATUS REGISTER 3 
Q 
177400 x3. MDE # 177400 sMICRO-DIAGNOSTIC ERROR CODE 
X3.SPARE= BIT7 sNOT USED By TSUOS 
000100 X3.0PI = BIT6 ;OPERATION INCOMPLETE 
000040 X3.REV = BITS sREVERSE 
000020 X3.TRF = BIT4 ; TRANSPORT RESPONSE FAILURE 
000010 X3.0CK = BITS sDENSITY CHECK 
000006 X3.MBZ *=BIT2+BIT1 sNOT USED ALWAYS 0 
000001 X3.RIB = BITO sREVERSE INTO BOT 
3¢ 
;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
3(XST4) 
i- 
100000 X4.HSP = BIT15 sHIGH SPEED 
040000 x4.RCE = BIT14 on COUNT EXCEEDED 
020000 xX4.TSM = BIT13 TRANSPORT SPECIAL MODE 
017400 xXx4.MBZ = BIT12-BIT11 -B1110-8119-B178 sNOT USED ALWAYS 0 
000377 X4.WRC = 000377 ;sWRITE RETRY COUNT FIELD 
3¢ 
H 
;TSSR TERMINATION CODES (BIT 0-2) 
3 
ge 
000006 TSREJ= 382 sCOMMAND REJECTED 
000006 UNREC= 6 sUNRECOVERABLE ERROR 
3¢ 
8 
;sDEVICE REGISTER OFFSETS 
$ 
oe 
000000 TSBA== 0 
000000 TSOB== O ;TSD8/TSBA REGISTER 
000001 TSBAH== 1 
000001 TSOBH== 1 ;TSOB.TSBA REGISTER HIGH BYTE 


3_- GLOB 


000002 
000003 


B3 


TSV AL ARE MACRO M1113 01-FEB-84 17:02 
TSUOS REGISTER AND SpaCKET DEFINITIONS 


TSSRe= 2 sTSSR REGISTER 

TSSRH== 3 sTSSR REGISTER HIGH BrTE 

t¢ 

: TSOB ADDRESS BIT DEFINITIONS 

i - 

A1716 = = BIT1+BITO sADDRESS BITS 17:16 ARE IN 1:0 


; * COMMAND DEFINITIONS 


- 

P.GETSTAT * 17 sGET STATUS 

P.INIT °e 13 s INITIALIZE 

P .CONTROL ° le oar COMMANDS 

P.F ® ii FORMAT 

P.POSITION * 10 :POSITION 

P.WRTSUB * 6 sSUBSYSTEM WRITE 
P.WRITE ° 5 sWRITE 

P .WRTICHAR * 4 sWRITE CHARACTERISTICS 
P.READ e 1 sREAD 


3° 
s COMMAND PACKET HEADER WORD BIT DEFINITIONS 
3 - 


« BIT15 sBUFFER AVAIL FOR CONTROLLER 
* BIT14 sCLEAR VOLUME CHECK 

e * BIT13 ae oe SEQUENCE OF DATA BITS 

Pp « BITIe AP BYTES IN MEMORY 

P.MODE = BITii:erriovertarerrs sEXTENDED COMMAND MODE FIELD 
PIE * BIT s INTERRUPT ENABLE 

P.FMT@ elre:eits sPACKET HEADER TYPE (ALWAYS<-0) 
P.CMD 37 sMAJOR COMMAND FIELD 


3° 
s CONTROL COMMAND MODE CODES 
— 


PC .RELEASE * 00256. sRELEASE BUFFER 

PC .REWIND * 10256. sREWINO 

PC. * 20256. sNO -OP 

PC. IEREW * 40256. sREWIND IMMEDIATE INTERRUPT 
PC .ERASE = 5e256. sSECURITY ERASE 


s¢ 
s CONTROLLER RAM DEFINITIONS 


ry - 

RMCHBEG = 167 sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
RMCHEND = 200 sCHARACTERISTICS IO DATA END RAM ADDRESS 
RMPKTBEG= 201 sCOMMAND PACKET BEGIN RAM ADORESS 
RMPKTEND= 210 sCOMMAND PACKET END RAM ADDRESS 

RMMSGBEG= 215 sMESSAGE BUFFER BEGIN RAM ADDRESS 
RMMSGENO= 234 sMESSAGE BUFFER END RAM ADDRESS 


é 
sREGISTER DEFINITIONS IN THE MESSAGE BUFFER 
3 


xSTO#* 6 sEXTEMDED STATUS REGISTER O (WORD 4) 


SEQ 027 


TaUOS RESTETER AND Packet BEPINEHONS?! FES-84 17:02 


000010 


xSTies S$, 

XST2*= 10, 
YI3*= 12, 
XST4*= 14, 


3¢ 


sEXTENDED STATUS REGISTER 1 (WORD 5) 
sEXTENDED STATUS REGISTER 2 (WORD 6) 
sEXTENDED STATUS REGISTER 3 (WORD 7) 
sEXTENDED STATUS REGISTER 4 (WORD 8) 


3 
sOFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 


3 
= 
e2 
PKHI = 4 
PKBCNT = 6 
EXBCNT #10 


sLOW ORDER CHARACTERISTIC DATA POINTER 
sHIGH ORDER CHARACTERISTIC DATA POINTER 
sNUMBER OF BYTES IN DATA PACKET 


sNUMBER OF BYTES IN EXTENDED DATA PACKET 


3¢ 
sDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 


BSELO =0 
BSEL1 * 1 
SEL2 "2 
SELDATA « 4 


:BYTE O 
sBYTE 1 
sWORD 2 
sWORD 3 


3¢ 
sBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 


PwW.NOP = 0 
Pw. RORAM * 3 
PW.WTRAM e2 
Pw.RFIFO = 3 
PW.WFIFO = 4 
PwW.ROSTAT ° 5 
PwW.WCTL * 6 
Pu. WFMT = 7 
Pw. WMISC * 10 
Pu. e ii 
Pw.022 * 20 
Pw.O011 * 21 
Pw.013 = 22 
PwW.NO1311 * 25 
PwW.RDEXT = 24 


NO -OF 

sREAD RAM 

sWRITE RAM 

sREAD FIFO 

sWRITE FIFO 

sREAD STATUS 

sWRITE TAPE CONTROL 
sWRITE TAPE FORMAT 
sWRITE MISCELLANEOUS 
sWRITE NPR CONTROL 
300 MICROTEST 22 

3:00 MICROTEST 11 

300 MICROTEST 13 
sOISABLE MICROTEST 11 AND 13 


SEQ 028 


sREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 


3° 
sBSEL1 CODES FOR WRITE TAPE CONTROL 


WC. IFAD * BIT? 
ac. IOTAD = BIT6 
wC.I1TAD * BITS 
WC. ISRESV = BIT4 
WC. IREW * BITS 
WC. IRWU * BIT2 
WC. IFEN * BIT1 
WC. IGO * BITO 


:IFAD - FORMATTER ADDRESS 
ADO - 


sIT TRANSPORT ADDRESS BIT O 
sITADL - TRANSPORT ADDRESS BIT 1 
sIRESVS - RESERVED 05 

s IREW - REWIND 

sIRWU - REWIND ANDO UNLOAD 

eo - FORMATTER ENABLE 

‘ 


D3 


T - A 5 A -F ° * 
Teds REETETER AND Pace! BEPINEHTGNsO! FEB 84 17:02 SEQ 029 

276 - 

37? }BSEL1 CODES FOR WRITE FORMAT 

278 i 

53 000200 WF. IHISP * BIT? LIHISP - HIGH SPEED 

S80 000100 wr IWRT = BITE 1IWRT = - ~WRITE 

381 000040 WF IREV * BITS ;IREV  - REVERSE 

282 000020 WF! IWFM * BIT4 }IWEM == WRITE FILE MARK 

283 000010 wr IEDIT * B1T3 sIEOIT - EDIT 

584 000004 WF TERASE * BIT2 ;IERASE - ERASE 

285 000002 WF | T3RESV + BITI TIRESVS - RESERVED 03 

286 000001 WF | T4RESV * BITO }IRESV4 - RESERVED 04 

388 

289 3° 

290 .  gBSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 

1 on 

592 000200 MS .EXT » BIT7 yINVERT SENSE OF EXTENDED FEATURES SWITCH 

393 000020 MS_RSFIFO » BIT4 RESET FIFO AND INPUT PARITY ERRORR 

59a 000010 MS__RSTAPE * BIT3 RESET TAPE STATUS IN 2 FLIP-FLOPS 

59°; 000006 MS_ATTN © BIT2!BIT1 }ATTENTION TRIGGER FIELD 

26 000001 MS RSD » BITO RESET TIMER A,B THEN DELAY TIMES IN SEL2 

<9 3° 

298 ; MS. ATTN SUBCODES 

300 000000 MSA.NOP = 002 i:NO-OP (NOTHING TRIGGERED) 

301 000002 MSA_VOL = leo ;SIMULATE ON-LINE/OFF -LINE TRANSISTION 

302 000004 MSA.NRAM= Ded FORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 

303 000006 MSA_FRAM= 3e2 FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 
t¢ 

305 ; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 
ge 

307 000200 NP.IR » BIT? LINTERRUPT REQUEST (0-1 TRANSITION) 

308 000100 NP OUT » BIT6 ;TAPE DATA DIRECTION OUT (O= IN) 

309 000040 NP LOOP = BITS }ENABLE TRANSPORT LOOPBACK 

310 000020 NP | WRP * BITA {WRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 
3° 

312 ; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 
ee 

314 

315 000200 S2.0IM » BIT? ;WORD ©9 BYTE 2 DATA IN MISS 

316 000100 $2. TL » BITE ; Iuw # 

317 000040 $2 OUTRDY » BITS ; OUT RDY 

318 000020 $2. INRDY » BIT4 : | IN ROY H 

319 000010 $2 ATIMR * BIT3 ; ; TIMER A FLAG H 

320 000004 S2.BTIMR » BIT2 ; TIMER B FLAG H 

321 000003 52. UNDEF » BIT1-BITO _. .CUNDEF INED) 

322 100000 $1.PARIN » BITIS ‘tWORD 08 BYTE 1 PARIN H 

323 040000 $1. I2RESV » BITL4 ; IRESV2 

324 020000 $1. T1RESV » BIT13 ¥ IRESV1 

325 010000 $1. I€0T » BIT12 “ee IEOT L 

326 004000 $1. IIDENT » BIT11 ; TIDENT H 

327 002000 $1_ICER * BIT1O : ICER 

328 001000 $1. IFMK * BITO : IFMK H 

329 000400 $1. IHER - BITS ; IHER H 

330 000200 $0. ISPEED » BIT? }WORD 08 BYTE O ISPEED H 

33] . 000100 0, IRDY » BITE ; IRDY L 

332 000040 50. TONL » BITS : TONL L 


ES 
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TSUOS REGISTER AND PACKET DEFINITIONS 


BIT4 
BITS 
BIT2 
BIT1 
BITO 


3° 

44 sUNIBUS MAP DEF INATIONS 
3 - 

341 170200 MMRO = 170200 


ILOP L 
IOBY L 
IRWD L 
IFBY L 
IFPT L 


w 
bad 
uw 
w 
°o 
Ln] 
5 

see ee 


344 -SBTTL SPECIAL MACROS AND OPDEFS. 


3¢ 
348 :SAVE GENERAL REGS 1 TO 5 
349 3- 


351 -MACRO SAVREG 
352 JSR RS ,REGSAV 
.ENOM 


3¢ 
356 ; MACRO TO FORCE AN ERROR 


3 = 
358 «MACRO FORCERROR TAG ,NOTSSR 
359 »-NLIST 


360 -IIF NOF LISTALL, .NLIST 
LIST 


362 -IF 6 NOTSSR 
363 MOV TSSRCRS),R1 sREAD TSSR 
364 -ENOC 
365 MOV FORCER ,FORCER sIS oF uae SET? (LEAVE C BIT ALONE) 
366 BNE TAG sBR IF YE 
367 -NLIST 
368 -ITIF NOF LISTALL, .LIST 
LIST 


370 ENDM 


3° 
; MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
; WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
375 : SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
; FORCER TO 177777 
; TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 


3- 
379 -MACRO FORCEXIT TAG 
380 : »-NLIST 
381 -IIF NOF LISTALL, .NLIST 
-LIST 


383 MOV FORCER,FORCER 3IS FORCER NEGATIVE? 
384 BMI TAG 3BR IF YES 


»-NLIST 
386 -IIF NOF LISTALL, .LIST 
LIST 


388 .ENOM 
389 3° 


TSV3_- GLOBAL AREAS 
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SPECIAL MACROS AND OPDEFS. 


F3 


. MACRO TO INCREMENT ERROR COUNTS 
“MACRO NEXT .ERRNO 
-NLIS 


333. tir NOF He te 
E RRNO+1 


333.IIF NOF LISTALL, 
LIST 


-ENOM 


3¢ 
sMACRO TO PERFORM XOR 


«-NLIST 
-LIST 


-MACRO XOR A.B 
MOV 


A, -(SP) 
BIC B.(SP) 
BIC A.B 
BIS (SP)+,B8 


EN=0 
.SBTTL FORCER 


j My ERROR NUMBER 


- FORCE ERROR FL 


; 
3; THE FOLLOWING LOCATIONS MAY BE PATCHED By THE USER 
; TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 


3 
FORCER:: 


; FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 


.e) 
- BY THE MACRO “IFERROR”). AN ERROR NEED NOT 


- EXIST, JUST ASSUME AND TYPE THE MESSAGE. 


-SBTTL GLOBAL DATA SECTION 


$¢ 
5 THE GLOBAL DATA a CONTAINS DATA THAT ARE USED 


3IN MORE THAN ONE T 


‘ 
3 THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 


EPRTSwW:: -WORD O sPRINT SWITCH 

UNITN: : -WORD O sUNIT @ UNDER TEST. 

QvP:: -WORD O :QUICK VERIFY FLAG. 

CSRADOR: : -WORD O sADDRESS OF CSR FOR LURRENT DEVICE 
IVEC:: «WORD 224 TINTERRUPT VECTOR 

IPRI:: -WORD PRIO4 s INTERRUPT PRIORITY. 

TSTCNT -WORD O sNUMBER OF TESTS RUN IN THIS PASS 
LOOPCNT: WORD O sREMAINING ITERATION COUNT FOR TEST 
DEVCNT -WORD O sNUMBER OF DEVICE UNDER TEST 
FATFLG:: -WORD O sSET IF FATAL ERROR IS DETECTED IN TEST 
INTRECV:: -WORD O sSET IF TAPE INTERRUPT WAS RECEIVED 


SEQ 031 


G3 


TSV3 - GLOBAL AREAS MACRO M1113 O1-FEB-84 17:02 SEQ O 
GLOBAL DATA SECTION = 
447 002226 000000 EXTFEA:: WORD 0 sEXTENDED FEATURES SOFTWARE SW O-OFF;1=ON 
448 002230 000000 BENBSW: : » WORD 0 sBUFFER ENABLE SWITCH SW O=OFF;1=0N 
449 002232 000000 EXPO: : WORD 0 sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
450 002234 000000 RECV:: WORD 0 sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 
451 002236 000000 ERRHI:: D 0 sHIGH ADDRESS MEMORY ERROR 
4S2 002240 000000 ERRLO:: WORD 0 sLOW ADDRESS MEMORY ERROR 
453 002242 RAMDATA: : BLKw 16. sDATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
454 002302 000000 RAMSIZ:: WORD 0 sRAM DATA SIZE FOR PRAMPKT ROUTINE 
455 002304 000000 RCVHIADD: : WORD 0 sRECEIVED BUFFER HIGH ADDRESS 
456 002306 000000 RCVLOADD . WORD 0 sRECEIVED BUFFER LOW ADDRESS 
457 002310 000000 COUNT: : WORD 0 sTEST COUNT PATTERN 
458 002312 000000 DATA:: WORD 0 sTEST DATA 
459 002314 000000 TSTFLAG:: WORD 1?) sTEST FLAG WORD 
460 002316 000000 TSTPTR:: WORD 0 s;TSTBLK POINTER 
461 002320 000000 PRMNO: : . WORD 0 sPRINT ROUTINE TEMP 
462 002322 EXPMSG: : .BLKB 100. sEXPECTED MESSAGE BUFFER DATA 
463 002466 RECMSG: : .BLKB 100. sRECEIVED MESSAGE BUFFER DATA 
ons 002632 TMPBFR: : .BLKB 80. 3; TEMPORARY STORAGE FOR PRINT 
466 
467 .SBTTL TSTBLK - TEST DATA TABLE 
468 
469 3° 
470 3 
rte ;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
; 
ri | 3IN SEQUENCE THE DATA IS: 
; 
475 Hy ALL ZEROS 
476 8 ALL ONES 
477 ; WALKING ONES 
478 3 WALKING ZEROS 
479 3 ALTERNATING ONES AND ZEROS 
480 3 
481 :- 
482 
483 002752 TSTBLK:: 
484 002752 000000 WORD 0 sALL ZEROS 
485 002754 177777 . WORD 177777 sALL ONES 
486 002756 000001 . WORD BITO ;DATA FOR WALKING ONES 
487 002760 000002 . WORD BIT1 
488 002762 000004 WORD BIT2 
489 002764 000010 WORD BITS 
490 002766 000020 WORD BIT4 
491 002770 000040 WORD BITS 
492 002772 000100 WORD BIT6 
493 002774 000200 WORD BIT? 
494 002776 000400 WORD BITS 
495 003000 001000 WORD BIT9 
496 003002 002000 WORD BIT10 
497 003004 004000 WORD BIT11 
498 003006 010000 WORD BIT12 
499 003010 020000 WORD BIT13 
SOO 003012 040000 WORD BIT14 
501 003014 100000 . WORD BIT15 
502 003016 177776 » WORD tCBITO sDATA FOR WALKING ZEROS 


503 003020 177775 -WORD *tCBIT1 


TSV3 - GLOBAL AREAS : 


TSTBLK 


- TEST 


DATA 


177773 
177767 
177757 
177737 
177677 
177577 


000000 100000 000000 
000000 000000 000000 
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ABLE 


TBLEND==. 


. SBTTL 


a 
DUMMY : 0,1 


tCBIT2 
tCBITS 
tCBIT4 
tCBITS 
tCBIT6 
*CBIT7 
tCBITS 
tCBIT9 
tCBIT10 
*CBIT11 
tCBIT12 
tCBIT13 
tCBIT14 
tCBITiS 
125252 
052525 


H3 


SEQ 033 


sALTERNATING ONES, ZEROS 
sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


GLOBAL ENVIRONMENT STORAGE 
; 
sSTORAGE FOR DEVICE REGISTERS 


00000 ,0,0 
0,0,0,0,0,0,0,0 
OUFLG WORD 
NODEV: . WORD 
TEMP1:: .» WORD 
TEMPe:: .» WORD 
XXCOMM: : . WORD 
FREE:: WORD 
FRESIZ:: .WORD 
FREEHI: .WORD 0 
KTFLG:: . WORD 
K TENABLE: : . WORD 
NXMFLG:: .» WORD 
NXMLO: . WORD 
NXMHI ; «WORD 
T23A:: . WORD 
T238:: . WORD 
T3BFLG . WORD 
PST32W . WORD 
SIFLAG . WORD 
BADDAT . WORD 
GDDAT: . WORD 
LOOPFL WORD 
CTAB:: 
CTABM » WORD 
WORD 


sDUMMY DEVICE REGISTERS... 
.-FOR MULTI-UNIT CHECKOUT. 


:"OROPPED UNIT” FLAG. 
sINHIBITS CODE IN “CLEAN-UP”. 
sFLAG TO SAY NO DEVICE. 


;SOME TEMP LOCATIONS. 


;XxXDP+ COMM BLOCK POINTER. 
ane? FREE MEMORY ADDRESS... 
-AND SIZE CIN WORDS). 
3;LAST WORD’ IN FREE SPACE 
sKT11, MEM AVAIL FLAG - 
3° WORD O = <24K OR NO KT - 
3- NZ = >24K AND KT. 
3;SET BY be ae! ROUTINES TO FLAG >28K UNDER TEST 
;SET IF WE CAN TEST CLEARED: OTHERWISE 
3NXM LO ADORESS BITS 
3NXM HI ADDRESS Bits FOR DAL‘S 16-21 
sPROCESSOR TYPE FLAG 
sPROCESSOR TYPE FLAG 8B 
sTEST 38 FLAG tO 
332W BLOCK ADDRESS FOR 32K START 


3 
sACTUAL DATA 
sEXPECTED DATA 


sCONF IGURATION TABLES. 
sCONFIG WORK. 


o ooo000o oO °O 


ooo Dieta patient: 
°o 


TSV3 - GLOB 
GLOBAL ENVIRONMENT STOR 


003172 
003174 
003176 


003176 
003376 


003400 


AL AREAS 


000000 
177777 


000000 
000000 


124° 


0S2 


003536’ 
003577' 


13 
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AGE 


123 


003541' 
003603’ 


125 


os2 


003545' 
003607" 


-WORD O 
CTABE -WORD -1 sEND OF MEM TABLE. 
;ERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 
; 
; ° * UNIT NOT TESTED 
. 100000 = UNIT ONLINE, NO ERRORS 
; LOXXXX = UNIT ONLINE, ENCOUNTERED Xxxx ERRORS 
i 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
; 160001 = UNIT DROPPED, NOT IOLE AT START 
3 14XXXX = UNIT DROPPED, ENCOUNTEHED Xxxx ERRORS 
H 
ERTABL : -BLKW 64, 
ERTABE: -WORD O 


SKIPT: .WORD 0 s1*SKIP SUBTEST O=NO SKIP OF SUBTEST 
-SBTTL GLOBAL TEXT MESSAGES 


zee 
; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
: MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

; MORE THAN ONE TEST. 

gee 


3¢ 
sNAMES OF DEVICES SUPPORTED 
ge 


DEVTYP <TSUOS> 
LSOVTYP:: 
-ASCIZ /TSUOS/ 
EVEN 


3¢ 
sTEST DESCRIPTION 


ca DESCRIPT <#eee TSUOS DIAG PART 2 - REPLACE M7455 IF ERROR seee>r 
L 33 
se /eeee TSUOS DIAG PART 2 - REPLACE M7455 IF ERROR esee/ 
_ Vv 


3¢ 
sBIT TO ASCII CONVERSION FOR TSSR REGISTER 
3 - 


TSSRBIT: : -WORD 1%,2$,3$,4%,5$,6$,78,8$ 
-WORD 9$,10$,11$,12$,13$,148,15$8,16$ 
1%; “ASCIZ ‘SC 
2s: -ASCIZ ‘BIE’ 
3%: -ASCIZ ‘SCE’ 
43: -ASCIZ ‘RMR’ 
S$: -ASCIZ ‘NXM’ 


SEQ 034 


TSV3 - GLOBAL AREAS 


GLOBAL TEXT MESSAGES 


003561 116 102 
003565 102 111 
003572 102 111 
003577 123 123 
003603 117 106 
003607 102 111 
003614 102 111 
003621 102 111 
003626 102 111 
003633 102 111 
003640 102 111 
00 124 123 
003701 124 123 
003734 040 040 
003773 045 101 
004014 045 101 
004054 045 101 
004113 045 116 
004117 040 040 


004252 040 040 
004274 045 101 
004331 040 040 
004403 040 040 


004527 045 101 
004563 045 116 
004637 045 101 
004741 122 101 
005007 040 040 
005052 127 122 
005107 124 123 
005202 124 123 
005274 106 101 
005366 105 122 
005454 045 116 
005550 

005550 

005550 


005550 013746 003114’ 
005554 012746 003773: 
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6$ -ASCIZ 
7$: -ASCIZ 
8$ -ASCIZ 
9% -ASCIZ 
10$: -ASCIZ 
11%; -ASCIZ 
les -ASCIZ 
13$ -ASCIZ 
14$ -ASCIZ 
158 ASCIZ 


-ASCIZ 
FUSI -ASCI1 
USI: -ASCIZ 
NSI: -ASCIZ 
FNOINTR: 


BRINIT: .ASCIZ 


NUL : -ASCIZ 
NULCR: .ASCIZ 


zee 


; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
; CALLS THAT ARE USED IN MORE THAN ONE TEST. 
; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 


NXRERR: : 


JS 


*TSSR ERROR AFTER SOFT INIT’ 
‘TSSR ERROR AFTER BUS RESET’ 
4 NON- — a REGISTER/ 


/#A ADDRESS: 


/#A TSBA,TSSR EXP’ + SO68A , SO6SN/ 
/#A TSBA,TSSR REC'D 


/ONBA/ 


/ UNEXPECTED INTERRUPT/ 
4 _INTERRUPT EXPECTED, NOT RECEIVED/ 


-ASCII /sNSA/ 


4 NO INTERRUPT WAS GENERATED/ 
4 INTERRUPT FAULT/ 

/$A CPU PC: SO6S8A TSBA: 
4 “BUS-INIT” DION’ T INITIALIZE CONTROLLER/ 
4 “SOFT-INIT” DION’ T INITIALIZE THE DPU/ 

4 “BUS-RESET” DION’ T INITIALIZE THE DPU/ 


4/ 
/8N/ 


/A EXP‘'D: SO68A, REC'D: 
/ONSA EXP'D: SO68A, SO6SNBA REC'D: 


SEQ 035 


/A REG(W) WRITTEN TO: sO06S8A REG(R) READ; EXP’D: SO068A, REC'D: #06/ 


-ASCIZ ‘RAM Contents Do Not Match Packet Sent’ 
7 CONFIG DOESN‘ T MATCH MFG. MASTER/ 

‘WRITE CHARACTERISTICS Failed’ 

‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 
‘TSSR Incorrect After READ Command, More Bits Set Than SSR’ 
‘FATAL ERROR IN SUBTEST - CHECK TAPE ,CABLES, TRANSPORT etc. 
‘ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED’ 
‘SNSA eeeee NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. 


GLOBAL ERROR REPORT SECTION 


NXRERR 


@NXRX , NODE V 
NODEV, -( SP) 
@NXRX, -C SP) 


sNON-EXISTANT DEVICE REGISTER. 
sNODEV = NEXM ADDRESS. 


TSV3 - GLOBAL AREA 
GLOBAL ERROR REPORT SECTION 


723 
724 
725 


012746 


K3 


MACRO M1113 01-FEB-84 17:02 


000002 


000006 
005602" 


177770 


004524' 
000001 


000004 


006227’ 


015654' 


MOV @2,-(SP) 
SP ,RO 


MOV ° 
TRAP CSPNTX 
ADD #6,SP 
JSR PC EXTEND : PRINT EXTENSION IF REQUIRED. 
ENOMSG 
L10002: 
TRAP C$MSG 


; THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
; TO ANY OF THE ABOVE ERROR SIGNATURES. 


a 
EXTEND: TST (PC)+ 
EXTA: 0 ; O = NO EXTENSION. 
BEQ i$ 
JSR PC,@EXTA ; APPEND EXTENSION TEXT. 
1$: PRINTX @NULCR ; PRINT A BLANK LINE 
MOV @NULCR, -C SP) 
MOV #1, -C 


.SBTTL PRITSSR - PRINT TSSR CONTENTS 
3° 


; 

sROUTINE TO DISPLAY "HE CONTENTS, AND BIT DEFINITIONS, OF 
;THE TSSR REGISTER. ‘HIS ROUTINE IS NORMALLY CALLED ONLY 
3;BY A MESSAGE PRINTING ROUTINE 


3 

3; INPUTS: 

F 

3 RL CONTENTS OF TSSR 


: 

; SUBORDINATE ROUTINES: 

3 

; CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
; 

g< 


PRITSSR: 
AVREG sSAVE GENERAL REGISTERS 
MOV R1,R4 sSAVE THE TSSR CONTENTS 
PRINTB @TSSRFOR,R4 sPRINT THE CONTENTS OF TSSR 
MOV R4,-CSP) 
MOV @TSSRFOR, -C SP) 
MOV #2,-(SP) 
MOV SP ,RO 


MOV R4,RO ;GET TSSR BACK FOR CHKAMB 
JSR PC, CHKAMB sARE CONTENTS AMBIGUOUS ? 
BCS 5$ ;BRANCH IF NOT 


SEQ 036 


L3 


TSV3_- GLOBAL AREAS MACRO M1113 01-FEB-84 17:02 SEQ 037 
PRITSSR ~ PRINT TSSR CONTENTS ) 
726 005676 PRINTX @#AMBTSSR ;SHOW CONTENTS ARE AMBIGUOUS 
005676 012746 006447' MOV OAMBTSSR, -(SP) 
005702 012746 000001 MOV #1, -(SP) 
005706 010600 MOV SP ,RO 
005710 104415 TRAP = C$PNTX 
005712 062706 000004 ADO 04, SP 
727 005716 010403 S$: MOV R4,R3 ;CONTENTS OF TSSR 
728 005720 042703 001476 BIC O@HTADOR!FATERR! TERCLS.R3 ;CLEAR ALL MULTIPLE BIT FIELDS 
729 005724 001434 BEQ 208 ;NO BITS ARE SET 
730 005726 012702 002632' MOV OTMPBFR ,R2 ;TEMPORARY ASCII BUFFER 
731 005732 012701 003476" MOV @TSSRBIT,R1 ;ASCII EQUIVALENT OF BITS 
732 005736 005703 10$: TST R3 ;REMAINING BITS TO CONVERT 
733 005740 001413 BEQ 15$ ;BRANCH WHEN ALL ARE DONE 
‘s” \734 005742 000241 cLC :CLEAR CARRY FOR SHIFT 
735 005744 006103 ROL R3 ;SHIFT NEXT BIT TO CARRY 
336 005746 103006 Bcc 138 ;BRANCH IF BIT NOT SET 
«737 005750 011100 MOV CR1),RO ;POINTER TO BIT DEFINITION 
738 005752 112022 11$: MOVB (RO)+,(R2)+ ;MOVE ASCIZ TO BUFFER 
739 005754 001376 BNE 11$ ;MOVE ALL BITS 
740 005756 112762 000054 177777 MOVB = @,, -1(R2) ;INSERT A COMMA TO TERMINATE 
741 005764 005721 13$: TST (Ri)+ :POINT TO NEXT DESCRIPTION 
742 005766 000763 BR 10$ :GET THE REMAINING BITS 
743 005770 105042 15$:  CLRB  -(R2) ; TERMINATE THE LINE 
744 005772 PRINTX @TSSDEF,OTMPBFR ;PRINT THE BIT DEFINITIONS 
005772 012746 002632" MOV OTMPBFR, -(SP) 
005776 012746 006420' MOV @TSSDEF , -(SP) 
006002 012746 000002 MOV 02, -(SP) 
010600 MOV SPR 
006010 104415 TRAP = CSPNTX 
ras 200012 062706 000006 ADD 06 ,SP 
746 006016 010403 20$: MOV R4,R3 :GET THE TSSR CONTENTS 
747 006020 042703 177761 BIC @tCTERCLS.R3 ;CLEAR ALL BUT TERMINATION 
748 006024 016303 006510’ MOV TCOCOD(R3).R3  ;GET THE TERMINATION CODE MEANING 
749 006030 PRINTX @TCOASC,R3 ;PRINT THE TERMINATION CODE 
006030 010346 MOV R3,-(SP) 
006032 012746 006310' MOV @TCOASC, -(SP) 
006036 012746 000002 MOV 02, -(SP) 
006042 010600 MOV SP .RO 
006044 104415 TRAP —- C$PNTX 
006046 062706 000006 ADD #6, SP 
750 006052 010403 MOV R4,R3 :TSSR CONTENTS AGAIN 
751 006054 042703 177717 BIC @tCFATERR,R3 § ;CLEAR ALL BUT FATAL TERMINATION 
752 006060 001416 BEQ 253 ;D0N'T PRINT IF ZERO 
753 006062 006203 ASR R3 
754 006064 006203 ASR R3 
755 006066 006203 ASR R3 ;ALINE TERMINATION CODE FOR INDEX 
756 006070 016303 007050' MOV TSFCOD(R3),R3 ;GET THE FATAL TERMINATION CODE 
757 006074 PRINTX @TFCASC,R3 ;PRINT THE FATAL TERMINATION CODE 
006074 010346 MOV R3,-(SP) 
006076 012746 006351’ MOV @TFCASC, -(SP) 
006102 012746 000002 MOV 02, -(SP) 
006106 010600 MOV SP RO 
006110 104415 TRAP = C$PNTX 
006112 062706 000006 . ADD #6 ,SP 
758 006116 042704 176377 258: BIC @tCHIADDR,R4  ;CLEAR ALL BUT EXTENDED ADDRESS 


- 759 006122 001411 BEQ 30$ ;D0N‘T PRINT IF ZERO 


PRYTSSR~ PRINT TEER CONTENTS Utt> (OL -FEB-84 17:02 


006530' 
6 


007060' 


006247" 
000002 


000006 
002200’ 


006553’ 
157 


007114' 


165 


se 


007125’ 


PRINTX 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
30$: MOV 
PRINTX 
MOV 
MOV 
MOV 
TRAP 
ADD 
RTS 
EPRT2: 
EPRT1: .ASCIZ 
TSSRFOR: 
TEXASC: 
TCOASC: 
TFCASC: 
TSSDEF : 
AMBTSSR: 
-EVEN 
TCOCOD: .WORD 
1$: .ASCIZ 
2s ASCIZ 
3$ ASCIZ 
4$ ASCIZ 
S$ .ASCIZ 
6$ -ASCIZ 
7$ ASCIZ 
8s ASCIZ 
EVEN 
TSFCOD: .WORD 
1$: ASCIZ 
2s: ASCIZ 
3$ ASCIZ 
4$ ASCIZ 
EVEN 
SBTTL 


M3 


SEQ 033 


@TEXASC ,RA ;PRINT THE EXTENDED ADDRESS BITS 
@TEXASC, -(SP) 


#6, SP 
EPRTSW,R3S sPRINT MEAASGE BUFFER ADDRESS 
R3 sPRINT PROPER MESSAGE 


PC sRETURN TO CALLER 


‘GNSA seeeeREPLACE M745Seeeee' 


‘sNSA TSSR = #06’ 
‘SNBSA Extended Address Bits = #06’ 
.ASCIZ ‘NSA Termination Class Code = sT’ 


-ASCIZ ‘sSNSA Fatal Termination Class Code = sT’ 
-ASCIZ ‘sNSA TSSR Bits Set: sT’ 
-ASCIZ ‘sSNA TSSR Contents Are Ambiguous’ 


1$,2$,3%,4%,5%,6%,7$,8$% 

‘Mormal Termination’ 

‘Termination Condition’ 

‘Tape Status Alert’ 

‘Function Reject’ 

‘Recoverable Error - Tape Position One Record Down’ 
'Recoverable Error - Tape Was Not Moved’ 
‘Unrecoverable Error’ 

‘Fatal Controller Error’ 


1$,2$,3$,4$ 

‘Internal Diagnostic Failure’ 
‘Reserved’ 

‘Bus Interface or Sanity Check Error’ 
'Reserved' 


PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


3¢ 
;THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
;THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


: 
; INPUT: 


NUMBER OF WORDS IN PACKET 
HIGH ORDER COMMAND PACKET ADDRESS 
ADDRESS OF COMMAND PACKET 


R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR, 


TSV3 - GLOBAL AREAS 


PRIPKT 


00500 
012402 
010246 


MACRO M1113 01-FEB-84 
- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


003134° 


007366’ 
000003 


000010 


017130' 


007330' 
000003 


000010 


116 
116 


045 
045 


PRIPKT: : 


10$: 


15$: 


208: 
25s; 


PKTFRM: 
PKTADD: 


;¢ 


; 
sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 


17:02 


-ASCIZ 
-ASCIZ 
-EVEN 


N3 


1 
CR4)+,R2 


sSAVE THE REGISTERS 

sSAVE NO. OF WORDS IN PACKET 
sABOVE 28K UNDER TEST? 

3;6R IF YES 

3SET HIGH ORDER ADDRESS TO 0 
sCOPY HIGH ORDER ADDRESS 
;GET LOWER ADDRESS 

;SHIFT BIT 15 INTO C BIT 
:AND INTO HIGH ORDER 

sPRINT PACKET ADDRESS 


sGET HIGH ORDER ADDRESS 


ss 
;SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
sGET RETURNED PAR6 ADDRESS BIAS 


sSAVE WORD NUMBER 
;GET PACKET CONTENTS 
sPRINT THE DATA 


sNEXT WORD NUMBER 

sDONE ALL PACKET WORDS? 
sLOOP TILL ALL DONE 
RETURN 


‘SNSA Packet Word @sD1SA = 806’ 
‘SNSA Packet Address = #01805’ 


-SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


‘pens ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


3 } INPUTS: 
8 


Ri 
R2 


RECEIVED DATA 
EXPECTED DATA 


SEQ 039 


TSv3 
PRIBXOR 


869 007424 
870 007424 
871 007430 
872 007432 
873 007442 
874 007446 
875 007450 
876 007452 
877 007454 
007454 
007456 
007460 
007462 
007466 
007472 
007474 
007476 
878 007502 
879 007504 


881 007506 


903 007554 
904 007554 
905 007560 
906 007562 
907 007572 
007572 
007574 
007576 
007600 


- GLOBAL AREAS 


010203 
012700 


010203 


010346 
010146 
010246 
012746 


MACRO M1115 i -FEB-864 17:02 


177400 


116 


007624' 


- PRINT EXPD, RECV AND XOR BYT 


045 


sOUTPUT; 
; 

3 RO 
: 

3° 


PRIBXOR:: 


XORBF OR : 


B4 


xOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 


R2,R3 sEXPECTED DATA 

R1,R3 sFORM THE EXCLUSIVE OR 
@tC<377>,RO0 18YTE MASK 

RO,.R sSAVE LOW BYTE RECV 

RO,R2 sSAVE LOW PYTE EXPD 

RO,RS sSAVE LOW BYTE XOR 

@xORBE OR, R2,R1, RS sPRINT THE MESSAGE 

R1,-(SP) 

Re, -(€SP) 

@XORBFOR, -( SP) 

04, -(SP) 

SP RO 

CSPNTB 

#12,SP 

R3,RO sRO HAS XOR ON RETURN 
c sRETURN TO CALLER 
-ASCIZ ‘NSA EXPD: SO3SA RECV: SOSSA XOR: 


PRIXOR - PRINT EXPD, RECV AND xOR 


sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TwO 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


: 

s INPUTS: 

3 

Fy R1 

3 R2 

;OUTPUT 

3 

Hy RO 

3 

cs 

PRIXOR 
SAVREG 
MOV 
x 
PRINTB 
MOV 
MOV 
MOV 
MOV 


RECEIVED DATA 
EXPECTED DATA 


xOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 


R2,R3 sEXPECTED DATA 

R1,R35 sFORM THE EXCLUSIVE OR 

@XORFOR.R2,R1., oR3 ;PRINT THE MESSAGE 
2°CS 

R1, -(SP) 

R2, -(SP) 


@XORFOR, -( SP) 


S03: 


SEQ 040 


TSV5 


PRIX 


007672 
007672 
007676 


on BR NT ERB, Re 


012746 
010600 
104414 
062706 
010300 
000207 


045 


000207 


C4 


CORR has O01 -FEB -84 17:02 


Cv A 
000004 


000012 


116 


045 


045 


MOV 04, -(SP) 
SP ‘RO 

TRAP CSPNTB 

ADD 012,SP 

MOV R3,RO sRO HAS XOR ON RETURN 
PC ;RETURN TO CALLER 


XORFOR: yoy ‘SNSA EXPD: SO6SA RECV: SO68A XOR: 806’ 


-SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
| ad 


‘ 
sROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


3 
s INPUTS: 


é 

i RO OCTAL VALUE TO CONVERT 

H R1 TABLE OF POINTERS TO ASCII EQUIVALENT 

6 

a 

PRIEQU: 
SAVREG sSAVE THE REGISTERS 
RTS PC sRETURN TO CALLER 


-SBTTL PRIRAM - PRINT RAM ADDRESS 
3° 


8 
sPRINT CONTROLLER RAM ADDRESS. 
sTHIS ROUTINE IS NORMALL) CALLED ONLY FROM PRINT ROUTINES. 


é 
s INPUTS: 
; 


3 R4 RAM ADDRESS 
ty 
3- 
PRIRAM; 
'  SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
PRINTB @RAMFOR,R4G sPRINT RAM ADORESS IN ERROR 
MOV R4, -(SP) 
MOV ORAMF OR, -( SP) 
MOV SP,RO 
TRAP CSPNTB 
ADD 06, SP 
RTS PC sRETURN 
RAMF OR; ype tng ‘sNSA CONTROLLER RAM ADDRESS = #06’ 
EV 


SEQ 041 


TSV3 - GLOBAL AREAS 
PRIADD 


013700 
013701 
010102 
006101 
006100 


010246 


002236’ 
002240' 


010042’ 
000003 


000010 


116 


993 010106 
994 010106 
995 010112 
996 010116 


013702 
013701 


002236' 
002240' 


1000 010122 
010122 
010124 
010130 
010134 


010146 
012746 010170' 
012746 000002 
010600 


045 


MACRO M1113 O1-FEB-84 17:02 
- PRINT MEMORY ERROR ADDRESS 


. SBTTL 
3° 


D4 


PRIADD - PRINT MEMORY ERROR ADDRESS 


PRINT MEMORY ADDRESS 
;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


ERRHI 
ERRLO 


3 
; 
: 
F 
3 
3 
PRIADD: 


ADD 

RTS 
PRIAO: .ASCIZ 

-EVEN 


3° 


; IMPLICIT INPUTS 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 


ERRHI,RO sGET HIGH ADORESSS 
ERRLO,R1 sGET LOW ADORESS 
R1,R2 sCOPY LOW ADORESS 


R1 sSHIFT BIT 15 TOC BIT 
R sSHIFT INTO HIGH ORDER 
sPRINT MEMORY ADDRESS IN ERROR 


sRETURN 
‘SNA MEMORY ERROR ADDRESS = #01805' 


PRITADD - PRINT MEMORY TEST ADDRESS 


; 
sPRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


; 
s IMPLICIT INPUTS 
; 


H 
H 
H 
H 
P 


- MIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 


ERRHI ,R2 sGET HIGH ADORESSS 
ERRLO,R1 sGET LOW ADDRESS 
R1,R2 sCOPY LOW ADDRESS 


Ri sSHIFT BIT 15 TOC BIT 
RO sSMIFT INTO HIGH ORDER 
sPRINT MEMORY ADDRESS LOW IN ERROR 


SEQ 042 


E4 


TSV3 - GLOBAL AREAS MACRO M1113 O1-FEB-84 17:02 SEQ 043 
PRITADD - PRINT MEMORY TEST ADDRESS 
010136 104414 TRAP CSPNTB 
010140 062706 000006 ADD 06 ,SP 
1001 010144 PRINTB @PRIT1,R2 sPRINT MEMORY ADDRESS HIGH IN ERROR 
010144 010246 MOV R2,-(SP) 
010146 012746 010233' MOV OPRIT1, -CSP) 
010152 012746 000002 MOV @2,-(SP) 
010156 010600 MOV SP ,RO 
010160 104414 TRAP CS$PNTB 
010162 062706 000006 ADD 06,SP 
on 010166 000207 RTS PC ;RETURN 
1004 010170 045 116 045 PRITO: .ASCIZ ‘sNSA MEMORY TEST ADDRESS ! OW = #06’ 
1005 010233 045 116 045 PRIT1: .ASCIZ ‘sNSA MEMORY TEST ADDRESS HIGH = #06’ 
1006 .EVEN 
1008 
1009 -SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
1010 
1011 3° 
1012 3 
1013 sROUTINE TO ISSUE A SPACE RECORDS 
rtrd sCOMMAND (FORWARD OR REVERSE ) 
101 H 
1016 3; INPUT: 
1017 3 
1018 3 R3 NUMBER OF RECORDS TO BE SPACED OVER 
1019 3 BIT15 CONTROLS OIRECTION 
1020 ; BIT1S5 = O IS FORWARD 
1021 3 BIT1S = 1 IS REVERSE 
res ; RS FIRST DEVICE UNIBUS ADDRESS 
3 
oes 3 REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
3 
1026 sOUTPUT: 
1027 3 
1028 : CARRY SET - SPACE RECORDS COMMAND OK 
1029 ; CLR - SPACE RECORDS FAILED 
1030 ; 
1031 : 
1032 : RO THE CONTENTS OF R4& IS MOVED TO RO 
1033 3 
1034 : 
1035 s IMPLICIT OUTPUT: 
1036 ; 
1037 ; TAPE HAS BEEN MOVED 
1038 : 
1039 SIDE EFFECTS: 
1040 ; 
1041 3 
1042 z- 
1043 
1044 010300 SPACE:: 
1045 010300 SAVREG s;SAVE THE GENERAL REGISTERS 
1046 010304 012737 000764 010470' MOV #500. ,SDELAY ;SET UP DELAY 
1047 010312 012737 140010 010460’ MOV 140010,80$ sSET UP COMMAND, SPACE FORWARD 
1048 010320 005703 TST R3 sCHECK FOR DIRECTION 


1049 010322 100403 BMI S$ sBR, IF REVERSE INDICATED 


F4 


SEQ 044 


TSV3 - GLOBAL AREAS MACRO M1113 -FEB- 7: 
SPACE - SPACE RECORDS (F SRoana ANo REVERSES CommaaD 
1050 010324 010337 010462’ MOV R3,908 sLOAD UP NUMBER OF RECORDS TO SPACE 
1051 010330 000407 BR 10$ 3GO DO COMMAND 
1052 010332 042703 100000 S$: BIC BIT15,R3 sCLEAR DIRECTION BIT 
1053 010336 010337 010462’ MOV R3,90$ sLOAD UP NUMBER OF RECORDS TO SPACE 
1054 010342 052737 000400 010460’ BIS BITS ,80$ sSET REVERSE BIT IN COMMAND PACKET 
1055 010350 012704 010460’ 108: MOV 080% ,R4 sSET UP R4 WITH PACKET ADDRESS 
1056 010354 010465 000000 MOV R4, TSDBCRS) sSEND OUT COMMAND 
1057 010360 004737 016060’ 15%: JSR PC ,WAITF sWAIT FOR SSR 
1058 010364 103420 bcs 20% ;BR, IF SSR IS SET AND OK 
1059 010366 DELAY 250 sDELAY ABOUT .25 SECONDS 
010366 012727 000250 MOV 9250,(PC)>+ 
010372 000000 -WORD O 
010374 013727 002116’ MOV LSDOLY,(PC)>+ 
010400 000000 -WORD O 
010402 005367 177772 DEC -6(PC) 
010406 001375 BNE .-4 
010410 005367 177756 DEC -22(PC) 
010414 001367 BNE .-20 
1060 010416 005337 010470' DEC SDELAY sBUMP DELAY COUNTER DOWN 
1061 010422 001356 BNE 15% ;BR, IF MORE DELAY 
1062 010424 000411 BR 60$ ;6R IF TROUBLE CARRY = CLEAR 
1063 010426 016501 000002 208: MOV TSSRCRS),R1 sREAD TSSR 
1064 010432 012702 000200 MOV @SSR Reo ;SET UP EXPECTED 
1065 010436 020201 25%: CMP R2,R1 3sARE THEY OK 
1066 010440 001401 BEQ 403 ;6R, IF EQUAL = OK 
1067 010442 000402 BR 60$ s TROUBLE EXIT 
1068 010444 000261 40%: SEC :SET CARRY NO TROUBLE 
1069 010446 000401 BR 70$ 3;EXIT 
1070 010450 000241 608: cLs sCARRY CLEAR = ERROR 
1071 010452 70$: 
1072 010452 010400 MOV R4,RO sPASS PACKET ADDRESS 
othe 010454 000207 RTS PC ;RETURN 
1075 3 
1076 Fy 
1077 ; 
ted sPACKET FOR SPACE COMMAND 
3 
1081 010456 .BLKB 10-<, -TSV2E7> 
1083 ; 
1084 ;COMMAND WORD 
1085 010460 000000 80$: . WORD 
1086 sNUMBER OF RECORDS TO BE SPACED OVER WORD 
1087 010462 000000 90%: . WORD 
1088 010464 000000 . WORD 
1089 010466 000000 . WORD 
1090 010470 000000 SOELAY: .WORD 0O ;DELAY COUNTER 
1091 -EVEN 
1092 
1093 
rt] -SBTTL WRTICHR - WRITE CHARACTERISTICS COMMAND 
1096 se 
1097 ; 
1098 sROUTINE TO ISSUE A WRITE CHARACTERISTICS 
1099 sCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 


1100 Hy 


TSV3 - GLOBAL 
WRTCHR 


001402 


AREAS MACRO M1 th an 01-FEB-84 17:02 
- WRITE CHARACTERTS TICs 


002230' 
002226' 
000000 


016146‘ 
000002 
000200 
000100 


000100 


000010 
000200 000012 
002226' 
000100 000012 
002230’ 


000002 


INPUT; 


g 
< 


10$: 


20%: 


25%: 


40$: 


45$: 


50$: 


60$: 
70$: 


R4 
RS 


RO 
CARRY 


G4 


ADDRESS OF 


TSSR CONTENTS 


PACKET FROM TEST 
FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 


SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 


IMPLICIT OUTPUT: 


MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA = EXTENDED FEATURES PRESENT 
BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


SIDE EFFECTS: 


BENBSW 
EXTFEA 

R4, TSOBCRS) 
PC, CHKTSSR 
208 
60% 
TSSRCRS),R1 
@SSR,R2 


R3 
a" .EXTF, xST2C(R3) 
4 
EXTFEA 
@X2.BUFE,xST2(R3) 
50$ 


BENBSW 


70$ 
TSSRCRS),RO 
PC 


SEQ 045 


sSAVE THE GENERAL REGISTERS 


;CLEAR BUFFER ENABLE SWITCH 


sCLEAR EXTENDED FEATURES SW SWITCH 


3SENO OUT COMMAND 
;WAIT FOR SSR 


;BR, IF SSR IS SET AND OK 
;8R IF TROUBLE CARRY = CLEAR 


sREAD TSSR 
;SET UP EXPECTED 


sWAS OFF LINE SET IN TSSR 


3BR, IF NO OFL SET 


sMAKE THEM LOOK ALIKE 


sARE THEY OK 
;6R, IF EQUAL = OK 
; TROUBLE EXIT 


sPOINT TO WRT CHARA DATA PACKET 
s;GET ADDRESS OF MESSAGE BUFFER 
sEXTENDED FEATURES BIT SET? 


3;68R IF 


NO 
3SET EXTENDED FEATURES SW SWITCH 


3BR, IF SWITCH NOT SET 


sBUFFER ENABLE SWITCH SET 


sSET SOFTWARE SWITCH FOR ENABLED 


sSET CARRY NO TROUBLE 
ExIT 


3 
sCARRY CLEAR = ERROR 
sRETURN TSSR CONTENTS 


;RETURN 


- GLOBAL AREAS 


SURITE CHARACTERISTICS COMMAND > O* 17102 


010712 


010714 
010720 
010720 
010722 


013727 
000000 


102010 
000000 


010720° 
000000 
000550 
016060’ 
000372 
002116' 
177772 
177756 


. SBTTL 


3¢ 


H4 


SEQ 046 


REWIND - POSITION TAPE (REWIND) COMMAND 


; 
sTHIS ROUTINE WILL REWIND THE SELECTED TAPE. 


JSR 
INPUT: 
RS 


OUTPUT 
RO 


ere 


WIND: : 


10$: JSR 


20%: MOV 


RWPACK : 


CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 


TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 


SSR TO SET IN THE TSSR 


CALLING SEQUENCE: 


DO A SOFT INIT 
DO A WRITE CHARACTERISTICS 


PC ,REWIND 


FIRST DEVICE UNIBUS ADDRESS 


THE CONTENTS OF R4 IS PASSED TO RO 


@RWPACK ,R4 


250. 
a oC PC)> 
i?) 


10-<, -TSV2E7> 
102010 
0) 


sSAVE R1-RS UNTIL NEXT RETURN 

;GET PACKET ADDRESS 

sSEND PACKET ADORESS TO EXECUTE 
sENOUGH TIME FOR 2400' REEL TO REWIND 
sWAIT FOR SSR TO SET 

sLEAVE WHEN SSR IS SET 

sWAIT FOR .25 SECONDS 


sBUMP COUNTER DOWN 

sKEEP GOING 

;CLEAR CARRY TO SET ERROR 
sPASS THE PACKET ADDRESS 
sRETURN 


sPOSTION COMMAND (REWIND) 
sNOT USED 


TSV3 - GLOBAL AREAS 


REWIND 


010724 
010724 
010730 
010734 
010740 
010742 
010746 


011032 


012701 


MACRO M1113 01-FEB-84 17:02 
- POSITION TAPE (REWIND) COMMAND 


002242’ 
000201 


016146' 
000000 
016146’ 
000000 
016146’ 
000000 


000000 


000210 


000010 002302’ 


. SBTTL 


id 


14 


CKRAM 


SEQ 047 


- COMPARE RAM TO I/O PACKET 


; 
sROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


3 
; INPUT; 


Fy R4 
; RS 


3 CARRY 


SIDE EFFECTS: 


108; JSR 


30$: 
50$: MOV 


. SBTTL 


ADORESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 


CLR - RAM DOES NOT MATCH PACKET 
sIMPLICIT OUTPUT: 


@RAMDATA,R1 

| a emma 
PC,.CHKTSSR 
#0, TSOBCRS) 
PC ,.CHKTSSR 
R2, TSOBCRS) 
PC ,.CHKTSSR 
TSBACRS),CR1) 
CR1)+,(R4)> 
20% 


08. ,RAMSIZ 
PC 


CKRAM2 


THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN RAM. 
RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


sSAVE THE GENERAL REGISTERS 
sADORESS TO SAVE THE RAM DATA 
s;BYTE ADDRESS OF FIRST RAM DATA 
;CLEAR THE ERROR FLAG 

sWAIT FOR SSR 

sSET MAINTENANCE MODE 

sWAIT FOR SSR TO SET 

sSELECT NEXT RAM ADDRESS 
sWAIT FOR SSR TO SET 

sREAD THE RAM DATA 

sCOMPARE TO EXPECTED 

sBRANCH IF OK 

sSET ERROR FLAG 

sADORESS OF NEXT RAM LOCATION 
;REACHED END YET ? 

sBRANCH TILL ALL READ 


;CLEAR CARRY 10 SHOW ERROR 

sAND EXIT 

sSHOW GOOD COMPARE 

3;SETUP RAMSIZ FOR PRAMPKT ROUTINE 
;RETURN 


- COMPARE RAM TO I/O CHARACTERISTICS DATA 


TSV3 - GLOBAL AREAS 


CKRAM2 


1293 
12 


MACRO M1113 01-FEB 


-864 17:02 


- COMPARE RAM TO I/0 CHARACTERISTICS DATA 


011034 
011034 
011040 
011044 
011050 
011052 
011056 
011064 
011070 
011074 
011100 
011104 
011106 
011110 
011112 
011114 
011122 
011126 
011130 
011136 
011142 
011144 
011146 
011152 
011154 
011156 
011160 
011162 
011164 
011166 


012701 


002242’ 
000167 


016146' 
000000 
016146' 
000000 
016146' 
000000 


000010 002302’ 
002226' 


000012 002302’ 
000200 


000176 


3¢ 


J4 


i 
s;ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 


sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS CATA BLOCK. 


; 
3; INPUT: 


; 
: R4 
3 RS 


SIDE EFFECTS: 


10%; JSR 


208: INC 


25%: CMP 
27s: TST 


30$: SEC 
50$: RTS 


ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 


CLR - RAM DOES NOT MATCH PACKET 
; IMPLICIT OUTPUT: 


ORAMDATA,R1 
rte 


PC,.CHKTSSR 
@0, TSOBCRS) 
PC,.CHKTSSR 


TSBACRS),(R1) 
(R1)-, (R4)+ 
20% 


R3 


R2 

06. ,RAMSIZ 
EXTFEA 

25% 

#10. ,RAMSIZ 


THE TABLE oo hon IS FILLED WITH THE 
DATA HELD IN R 
RAMSIZ IS SET 10 8. OR 10. FOR PRAMPKT ROUTINE 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


sSAVE THE GENERAL REGISTERS 
sADDRESS TO SAVE THE RAM DATA 
sBYTE ADDRESS OF FIRST RAM DATA 
;CLEAR THE ERROR FLAG 


;WAIT FOR SSR 


3SET ¥en] = 
;SELECT NEXT RAM ADDRESS 


sWAIT FOR SSR 


sWAIT FOR SSR TO SET 
sREAD THE RAM DATA 


sCOMPARE TO EXPECTED 


;BRANCH IF OK 


;SET ERROR FLAG 
sADDRESS OF NEXT RAM oes 
| ASSUME EXTFEA NOT SET 


SEQ 048 


:IS THE SOFTWARE EXTENDED FEATURES SET 


;BR, IF NOT SET 
3SET RAMSIZ FOR EXTEND FEATURES 
sAT END OF EXTENDED BUFFER 
36R, IF NOT AT END YET 
H 


NOT 
;CLEAR CARRY TO SHOW ERROR 


:AND EXIT 


+SHOW GOOD COMPARE 


;RE TURN 


TSV3_- GLOBAL AREAS 
CKRAM2 


- COMPARE RAM 10 190 1/0 C 


011170 


002304’ 
002306' 
003134' 


017130' 


002322’ 
002466' 


000002 
000014 


000200 
000016 


000012 


K4 


OCHARAC TEREST EES SB ath’ = 


-SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
3¢ 


; 

sROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


3 
: INPUT: 
3 
8 RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
3 R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 
sOUTPUT 
3 
3 CARRY SET - MESSAGE BUFFERS MATCH 
8 CLR -MESSAGE BUFFERS DON’T MATCH 
F 
s IMPLICIT OUTPUT: 
3 
3 EXPMSG BUFFER IS SET TO EXPD DATA 
3 RECMSG BUFFER IS SET TO RECV DATA 
; RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
3 RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
e 
a= 
CKMSG: : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV RO,RCVHIADD sSAVE RECV HIGH ADDRESS 
MOV R1,RCVLOAD sSAVE RECV LOW ADDRESS 
TST K TENABLE sTESTING ABOVE 28K? 
BEQ 10$ 3;B8R IF NO 
JSR PC ,SETMAP sRETURN ADDRESS BIASED TO PAR6 IN RO 
MOV RO,R1 ;GET RETURNED ADDRESS BIASED TO PARG 
108: CLR R4 ;WORD' IN BUFFER 
CLR R3 ;CLEAR ERROR SEEN FLAG 
MOV R2,R sGET EXPO BUFFER ADDRESS 
158%: MOV CR2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
MOV (R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 
CMP CR2)¢,CR1L)+ sEXPD EQUAL RECV? 
BEQ 25% 3;B8R IF YES 
INC R3 3SET ERROR SEEN FLAG 
253: ADD @2,R4 sPOINT TO NEXT WORD ADDRESS 
CMP R4,014 ;00NE FIRST 7 WORDS? 
BLE 15$ ;68R IF NO 
+H i .EXTF, +*ST2CRS}ATS EXTENDED FEATURES SET IN EXPD? 
CMP R4,016 sDONE EXTENDED FEATURES WORD? 
BLE 15$ 38R IF NO 
50$ TST R3 sANY ERRORS SEEN? 
BEQ , 55$ ;6R IF NO 
cLCc ;SET FAILURE 
BR 60% F 
55$: SEC ;SET SUCCESS 
60$: RTS PC ;RETURN 


SEQ 049 


TSv3_- GLOBAL 
CKMSG 


- COMPARE 


011310 


011426 


AREAS 


WRITE C 


020327 
003412 
012703 


012746 
012746 
010600 


000144 
000144 


011442’ 
000001 


017130' 


002322’ 


002466' 


900001 


3¢ 


CHAR, MESSAGE BurFeRS. *”*O° 


. SBTTL 


L4 


SEQ 050 


CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


; 

sROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


: 
; INPUT: 


; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
C 


S$: 


10$: 
15$: 


25%: 


50$: 


KMSG2: : 


CARRY 


RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 

NUMBER OF BYTES TO COMPARE 


SET - MESSAGE BUFFERS MATCH 
CLR - MESSAGE BUFFERS DON'T MATCH 


IMPLICIT OUTPUT: 


EXPMSG BUFFER IS SET TO EXPD DATA 

RECMSG BUFFER IS SET TO RECV DATA 

RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
CMP R3, ORECMSG - EXPMSG ; 880 IS COUNT ABOVE MAX ALLOWED? 
BLE S$ :980 BR IF NO 

MOV @RECMSG -EXPMSG, R3; 990 

PRINTF . @DEBUGMSG ;8a0 

MOV @DEBUGMSG, -( SP) 

MOV #1,-(SP) 

MOV SP ,RO 

TRAP CSPNTF 

ADD 04 ,SP 

MOV RO,RCVHIADD sSAVE RECV HIGH ADDRESS 

MOV R1,RCVLOAD sSAVE RECV LOW ADDRESS 

TST KTENABLE sTESTING ABOVE 28K? 

BEQ 10$ 38R IF NO 

JSR PC ,SETMAP sRETURN ADDRESS BIASED TO PAR6 IN RO 
MOV RO,R1 sGET RETURNED ADDRESS BIASED TO PARG6 
CLR R4 sWORD IN BUFFER 

CLR RS sCLEAR ERROR SEEN FLAG 

MOVB (R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
MOVB (R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 
CMPB CR2)+,CR1)+ sEXPD EQUAL RECV? 

BEQ ess 3BR IF YES 

INC RS sSET ERROR SEEN FLAG 

ADO @1,R4 sPOINT TO NEXT BYTE 

CMP R4,R3 sDONE ALL BYTES? 

BGE 50$ ;BR IF YES 

BR 15$ 300 NEXT BYTE 

TST RS sANY ERRORS SEEN? 


TSV3 - GLOBAL AREAS 


CKMSG2 


011430 
011432 
011434 
011436 
011440 


011442 
011532 
011543 
011576 
011631 


011644 
011644 
011644 
011650 
011654 
011654 
011654 


011672 
011672 


004737 
004737 


104423 


004737 
012700 
004737 


104423 


M4 


MACRO M1113 01-FEB-84 17:02 
- COMPARE EXPD RECV MESSAGE BUFFERS 


005636‘ 
017014’ 


BEG ss ;8R IF NO ‘ 
cic ;SET FAILURE - 
BR 60$ ’ 

55$: SEC 3SET SUCCESS 

60$: RTS PC ;RETURN 


DEBUGMSG: 
FERCM: .ASCII /SNSA see 
ERCM: -ASCIZ / TSSR ERROR CODE REC'D = / 
SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT/ 
TINERR: oe FVESTE csu¥ 

.EV 


3° 
3 
s;PRINT ROUTINE TO FATAL SOFT INIT ERRORS 


}INPUT: 

; R1 CONTENTS OF TSSR AT ERROR 

; SIDE EFFECTS: 

; EXECUTES DROP UNIT TO CEASE TESTING 


‘ , 
g- 


BGNMSG SFIMSG 


SFIMSG: : 
JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
JSR PC ..CKDROP ;DROP UNIT, IF ALLOWED 
ENDMSG 

L10003: 


TRAP C$MSG 
i¢ 
;PRINT ROUTINE TO PRINT THE CONTENTS OF 
;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
3 
; INPUTS: 


; R1 TSSR CONTENTS 
R4 ADDRESS OF COMMAND PACKET 


BGNMSG PKTSSR 


PKTSSR:: : 
JSR PC,PRITSSR ;PRINT THE CONTENTS OF TSSR REGISTER 
MOV #4,RO sNO. OF WORDS IN PACKET 
JSR PC ,PRIPKT sPRINT THE CONTENTS OF COMMAND PACKET 
ENDMSG 

L10004; 


TRAP C$MSG 


3 


SEQ 051 


-ASCIZ ' _— INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-’ ;aa0 


TSV3_- GLOBAL AREAS 
CKMSG2 - COMPARE éxep 


011674 
011674 
011674 
011700 
011704 
011710 
011710 
011710 


011712 
011712 
011712 
011716 
011716 
011716 


011720 
011720 
011720 
011724 
011726 
011730 
011734 


004737 


104423 


004737 
010200 
010301 
004737 


atey tee 
Ss 


RECV ME 


005636‘ 


005636’ 


014052’ 


N4 





1113 O1-FEB-84 17:02 
tbe eurrERs 4 — 
sPRINT ROUTINE TO PRINT THE CONTENTS wd 
aa AND A GET STATUS COMMAND PACKET 
} INPUTS: 
i 
8 R1 TSSR CONTENTS 
3 Ra ADDRESS OF COMMAND PACKET 
+ 
3 — 
PKTGETS 
PKTGETS: 
J PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV #2,RO0 3NO. OF WORDS IN GET STATUS PACKET 
JSR PC, PRIPKT SPRINT THE CONTENTS OF COMMAND PACKET 
ENDMSG 
L10005: 
TRAP CSMSG 
3 
s;PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
a 
; INPUTS: 
F 
F R1 TSSR CONTENTS 
3 R4 ADDRESS OF COMMAND PACKET 
g¢ 
SFFMSG 
SFFMSG . 
JSR PC,PRITSSR ;PRINT CONTENTS OF TSSR REGISTER 
ENDMSG 
L10006: 
TRAP C$mMSG 
.SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 
3 
3 
;PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
;BUFFER FOR ERROR REPORTS 
; 
; INPUTS: 
3 
3 R1 CONTENTS OF TSSR 
3 R2 LOW ORDER MESSAGE BUFFER 
3 R3 HIGH ORDER MESSAGE BUFFER ADDRESS 
3 NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 
g¢ 
BGNMSG PKTMES 
PKTMES:: 
JSR PC,PRITSSR sPRINT CONTENTS OF TSSR 
MOV R2,RO ;LOW ORDER ADDRESS 
MOV R3,R1 sHIGH ORDER ADDRESS 
JSR PC,PRMESS ;PRINT THE MESSAGE BUFFER 
ENDMSG 
—— Not ig i 


011736 
011736 
011736 
011742 
011746 
011752 
011752 
011752 


011754 
011754 
011754 
011760 
011764 
011766 
011772 
011776 
011776 
011776 


004737 
016501 
004737 


104423 


012700 
005737 
001402 
012700 
004737 


104423 


BS 


MACRO M1115 oh - FEB-84 17:02 


AND MESSAGE BUFFER 


000007 
002226' 


000010 
014362’ 


10007; 
TRAP C$MSG 
-SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 


}PRINT ROUTINE TO PRINT THE — OF 
a AND A MEMORY TEST ADDRES 


} INPUTS: 
RS FIRST DEVICE UNIBUS ADDRESS 


ERRHI HIGH ORDER MEMORY TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 


BGNMSG ADDSSR 


ADOSSR:: 
JSR PC ,PRITADD sPRINT MEMORY TEST ADDRESS 
MOV TSSR(RS),.R1 sGET CURRENT TSSR 
ee PC,.PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 


L10010;: 
TRAP C$MSG 


-SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 
$e 
° 
sPRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
: 
sIMPLICIT INPUTS: 
EXPMSG - EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADORESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGEXP 


MSGEXP: ; 
MOV 97,RO0 sASSUME NO EXT FEATURES 
TST EXTFEA sEXT FEATURES SET? 
BEQ 53 36R IF NO 
MOV 8. ,RO sEXT FEATURE BUFFER IS 8 WORDS 
53: JSR PC ,PRMSGE xP sPRINT EXPD/RECV MESSAGE BUFFERS 
ENOMSG 
L10011: 


TRAP C$MSG 


-SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 
3° 
t] 
sPRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 
3 
3 Ri - BYTE COUNT 


; 
sIMPLICIT INPUTS: 


SEQ 053 


T 
F 


S 
I 


Vv 
PS 


Bs5 Btu RFtPo exeXRERD BAHL® 01-FE8-04 17202 


012052 
012121 


012220 


012746 


012701 
012100 


012052’ 
000002 


000006 
012121' 
000001 


012222' 


EXPMSG 
RECMSG 


GNMSG 
NTX 


8 
FIFEXP:: 


L10012: 


FIF1MSG: 
FIFOQMSG: 
-EVEN 


3¢ 


fest 


- EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
- RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 


FIFEXP 


OF IF IMSG,R1 
R1,-CSP) 


OF IF LiMSG, -( SP) 


@2,-CSP) 


04 ,SP 
R1,RO 
PC ,PRBYTEXP 


C$MSG 


sPRINT BYTES TRANSFERRED 


sPRINT HEADER MSG 


sGET BYTE COUNT 
sPRINT FIFO BYTES IN ERROR 


-ASCIZ ‘sNSA NUMBER OF BYTES TRANSFERRED = #02° 
-ASCIZ ‘NSA FIFO DATA BYTES IN ERROR: ’ 


MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


é 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


: 
sIMPLICIT INPUTS: 


; 
3 EXPMSG - EXPECTED MESSAGE BUFFER 
; RECMSG - RECEIVED MESSAGE BUFFER 
H RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
8° 
BGNMSG MSGSTAT 
MSGSTAT:: 
MOV @STATCOD,R1 sASCII ADDRESS TABLE 
108; MOV (R1)+,RO sDONE ALL MSG LINES? 
BEQ 20s :BR IF YES 
PRINTX RO sPRINT STATUS BIT NAMES 
MOV RO, -(SP) 
MOV #1, -(SP) 
MOV SP ,RO 
TRAP CSPNTX 
ADD 04,SP 
BR 10% 300 ANOTHER MSG LINE 
208: MOV #10, ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
coh PC , PRMSGE xP sPRINT EXPD/RECV MESSAGE BUFFERS 


L10015; 


SEQ 054 


SEs BRN RECs HEABER NAS He sOhcE*BoPME AZ 02 


012220 
Ol2222 


013425 
013524 


104423 
012240' 
045 


012701 


012302' 


012736' 


012373' 
045 


D5 


SEQ 055 

TRAP C$MSG 
STATCOD: . WORD 1$,28,3%,48,5%,6%,0 
1$:.ASCIZ ‘SNSA Tape Bus Signals in Word 06:' 
2$:.ASCIZ ‘sNSA PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2>° 
3$:.ASCIZ ‘sSNA IRESV2<14> IIDENT<11> IHER <8> IONL<5> IFBY<1>’ 
4%:.ASCIZ ‘sNSA IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<O>’ 
5$:.ASCIZ ‘sNSA Tape Bus Signals in Word 09:' 
6$: none” _ DATMIS<7> ILW<6> OUTRDY<S> INRDY<4>' 

EV 


-SBTTL MSGLOOP 


3° 
‘ 
sPRINT ROUTINE TO 
‘ 
sIMPLICIT INPUTS: 


- PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


PRINT MeSSAGE BUFFER EXPD/RECV 


3 
3 EXPMSG - EXPECTED MESSAGE BUFFER 
3 RECMSG - RECEIVED MESSAGE BUFFER 
3 RCVHIADDO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
ig 

BGNMSG MSGLOOP 
MSGLOOP: : 

MOV @LOOPCOD..R1 sASCII ADORESS TABLE 
108: MOV CR1)+,RO sOONE ALL MSG LINES? 

BEQ 20% ;BR IF YES 

PRINTX RO :PRINT STATUS BIT NAMES 

MOV @1,-(SP) 

MOV 2RO 

TRAP CSPNTX 

04,SP 

BR 108% 3D0 ANOTHER MSG LINE 
208: MOV #10. ,R0 sNUMBER OF WORDS IN A READ STATUS BUFFER 

JSR PC ,PRMSGE xP sPRINT EXPD/RECV MESSAGE BUFFERS 

ENOMSG 
L10014 

TRAP C$MSG 
t.OOPCOD: . WORD 1$,28,3%,48,5%,68,7%,0 
1$:.ASCIZ ‘sNSA Tape Bus Loopback Signals in Word 08:' 
2¢:.ASCIZ ‘sNsA PARERR< 15> IRESV2<14> IRESV1<13>' 
3%:.ASCIZ ‘NSA IHISP=>IEQT<12> IWRT=>IIDENT<11> IREV =>ICER <10>' 
4$:.ASCIZ ‘sNSA IWFM =>IFMK<09> IEDIT=>IHER <O08> IFAD =*=>ISPEED<07>' 
5$:.ASCIZ ‘sNSA ITADO=>IRDY<06> ITAD1=>ION. <0O5> IERASE=>ILOP <04>' 
6%$:.ASCIZ ‘sNBA IREW *>IDBY<03> IRWU =>IRWD <O2> IFEN =>IFBY <Q1>’ 
78: aoa —— IGO =>IFPT<00>' 

Vv 


.SBTTL MSGSUB 


3° 
3 ‘ 
sPRINT ROUTINE TO 


- PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


PRINT MESSACE BUFFER EXPD/RECV 


ES 


- EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER 


RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


MSGSUB 
#10. ,RO sSIZE OF WRITE SUBSYSTEM BUFFER 
PC ,PRMSGE xP sPRINT EXPD/RECV MESSAGE BUFFERS 
C$MSG 


MEMADD - PRINT MEMORY ADDRESS DATA ERROR 


3 
sPRINT ROUTINE 70 PRINT MEMORY ADDRESS DATA COMPARE ERROR 


- MEMORY ERROR HIGH ORDER ADDRESS 
- MEMORY ERROR LOW ORDER ADDRESS 
- EXPECTED DATA 

- RECEIVED DATA 


MEMADD 

PC ,PRIADD sPRINT MEMORY ADDRESS IN ERROR 
EXPD,R1 sGET EXPD DATA 

RECV,R2 sGET RECEIVED DATA 

PC ,PRIXOR sPRINT EXPD/RECV 

C$mMSG 


PRAMPKT - PRINT RAM AND PACKET DATA 


3 
sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
;WHEN THE RAM DATA DOES NOT MATCH. 


POINTER TO COMMAND PACKET 


DATA AS READ FROM THE RAM 


TSV3 - GLOBAL AREAS MACRO M1113 O1-FEB-84 17:02 
MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
1666 
1667 3 
1568 s IMPLICIT INPUTS: 
1669 ; 
1670 : EXPMSG 
1671 ; RECMSG 
1672 Hy 
1673 3 
1674 i- 
1675 013552 BGNMSG 
013552 MSGSUB: : 
1676 013552 012700 000012 MOV 
1677 013556 004737 014362’ JSR 
1678 013562 ENOMSG 
013562 L10015: 
013562 104423 TRAP 
1679 
1680 
1681 
1682 
1683 
1684 . SBTTL 
1685 3° 
1686 
1687 
1688 Fy 
1689 sIMPLICIT INPUTS: 
1690 Fy 
1691 ; ERRHI 
1692 3 ERRLO 
1693 ; EXP 
1694 3 RECV 
1695 8° 
1696 013564 BGNMSG 
013564 MEMADD: : 
1697 013564 0604737 007772' JSR 
1698 013570 013701 002232’ MOV 
1699 013574 013702 002234' MOV 
1700 013600 004737 007554’ JSR 
1701 013604 ENOMSG 
013604 L10016: 
013604 104423 TRAP 
1702 
1703 .SBTTL 
1704 3° 
1705 
1706 
1707 
1708 ; 
1709 ; INPUTS: 
1710 ; 
1711 3 R4 
1712 ’ 
1713 s IMPLICIT INPUTS: 
1714 3 
1715 3 RAMDATA 
1716 3 RAMSIZ 


NUMBER OF BYTES IN PACKET 


SEQ 056 


TSV3_ - GLOBAL AREAS 
- PRINT RAM AND PA 


PRAMPKT 


012701 002242’ 


000436 
116105 177777 
116403 177777 


042703 177400 


116137 177777 002234' 
116437 177777 002232’ 


013746 002232’ 
013746 002234' 


012746 013766’ 
012746 000005 
062706 000014 
005737 002302’ 
020237 002302’ 


020227 000010 
005037 002302’ 


045 116 


MACRO M11 
ERET DATA 


045 


FS 


13 01-FEB-84 17:02 


sSAVE R1-RS gf NEXT RETURN 
sDATA FROM THE R 

sINIT BYTE NUMBER 

sCOMPARE EXPECTED, RECEIVED 
sBR IF NO MATCH 


3: 880 

;GET RECV RAM DATA 
3;GET EXPD PACKET DATA 
:XOR EXPD/RECV 

3LOW BYTE ONLY 

;GET RECEIVED RAM DATA 
;GET EXPECTED RAM DATA 


: IF RAMSIZ*O THEN DEFAULT TO 8. 
3 
s IMPLICIT OUTPUTS: 
D 
3 RAMSIZ SET TO 0 
3° 
PRAMPKT: 
SAVREG 
MOV @RAMDATA,R1 
CLR Re 
S$: — i cata 
PORCERROR 7$,NOTSSR 
BR 10$ 
7$: MOVB -1C€R1),R5 
MOVB -1(R4),R3 
XOR RS,R3 
BIC 177400,R3 
MOVB -10R1),RECV 
MOVB -1C€R4),EXPD 
PRINTB @RAMASC,R2,RECV,EXPD,RS 
MOV R3,-CSP) 
MOV EXPD, -( SP) 
MOV RECV, -(SP) 
MOV 2.- 


10$: INC 
TST RAMSIZ 
BEQ 15$ 
CMP R2,RAMSIZ 
BLE 5$ 
BR 25% 
15$: CMP R2,08. 
208: BLT 5$ 
25%: CLR RAMSIZ 
RTS PC 


RAMASC: .ASCIZ ‘sNSA BYTE: SD28A RAM: 
EVEN 


3° 
3 
sTHIS ROUTINE PRINTS THE CONTENTS OF 


trary Bhs — 
sDEFAULT TO 8 

;6R IF ves 

;DONE ALL BYTES? 
3B8R IF NO 


é 

sD0NE DEFAULT NUMBER OF BYTES? 
3BR IF NO 

3;SET DEFAULT RAMSIZ 

;RETURN 


S038A Packet: sO038A XOR:803' 


-SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


;THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 


sTSV-OS. 

; 

s INPUT; 

; 

‘ RO LOW ORSES ADDRESS OF MESSAGE BUFFER 
; R1 HIGH ORDER ADDRESS OF MESSAGE BUFFER 


; NOTE: R1 IS IGNORED IF KTENABLE 


FLAG IS CLEAR 


SEQ 057 


G5 


TSV3_- GLOBAL AREAS MACRO M1113 01-FEB-84 17:02 SEQ 058 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 
1765 H 
By sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 
176 ; 
1768 :* 
1769 
1770 014052 PRMESS: 
1771 014052 SAVREG sSAVE THE REGISTERS 
1772 014056 010005 MOV RO,RS sSAVE LOW ORDER ADDRESS 
1773 014060 005737 003134’ TsT K TENABLE sADDRESS ABOVE 28K? 
1774 014064 001001 BNE 10% :BR IF YES 
1775 014066 005001 CLR R1 sSET HIGH ORDER ADDRESS TO 0 
1776 014070 010103 10$: MOV R1,R3 sSAVE HIGH ORDER ADDRESS 
1777 014072 006100 ROL RO sSHIFT 81715 TO C BIT 
1778 014074 006101 ROL R1 sSHIF? TG HIGH ORDER FOR PRINTOUT 
1779 014076 PRINTX @PROASC,R1.RS ;PRINT MESSAGE BUFFER ADDRESS 
014076 010546 MOV RS, -(SP) 
014100 010146 MOV R1,-CSP) 
014102 012746 014230’ MOV @PROASC, -( SP) 
014106 012746 000003 MOV @3,-(SP) 
014112 010600 MOV SP ,RO 
014114 104415 TRAP CSPNTX 
014116 062706 000010 ADO #10,SP 
1780 014122 PRINTX @PRIASC sPRINT HEADER FOR CONTENTS 
014122 012746 014275' MOV @PRIASC, -( SP) 
014126 012746 000001 MOV 1, -(SP) 
014132 010600 MOV SP ,RO 
014134 104415 TRAP CSPNTX 
014136 062706 000004 ADD 04,SP 
1781 014142 005004 CLR R4 sNUMBER OF THE NEXT WORD 
1782 014144 010501 MOV RS,R1 sCOPY LOW ORDER ADDRESS 
1763 014146 010300 MOV R3,RO sCOPY HIGH ORDER ADDRESS 
1784 014150 001403 BEQ 20% ;BR IF NOT ABOVE 28K 
1785 014152 004737 017130' JSR PC, SETMAP sSETUP PAR ADDRESS IN RU 
1786 014156 010005 MOV RO,RS ;GET PAR FORMAT ADORESS ABOVE 28K 
1787 014160 208: PRINTX @PRASC,R4,(R5)+ ;PRINT THE CONTENTS OF MEMORY BUFFER 
014160 012546 MOV CRS)+, -CSP) 
014162 010446 MOV R4,-C(SP) 
014164 012746 014333' MOV @PRASC, -( SP) 
014170 012746 000003 MOV @3,-C(SP) 
014174 010600 MOV SP,RO 
014176 104415 TRAP CSPNTX 
014200 062706 000010 ADD #10,SP 
1788 014204 005204 INC Ra sNUMBER OF THE NEXT 
1789 014206 020427 000007 CMP R4,07 sDONE ALL YET ? 
1790 014212 003005 BGT 50$ sBRANCH IF ALL DONE 
1791 014214 002761 BLT 20% :PRINT FIRST 7 WORDS 
1792 614216 032763 000200 000012 BIT Ox%2 .EXTF ,XST2(R3);EXTENDED FEATUTES ON ? 
1793 014224 001355 BNE 20$ sPRINT EXTENDED STATUS WORD 
ieee 014226 000207 50$: RTS PC sRETURN 
1796 014230 045 116 045 PROASC: .ASCIZ ‘sNSA Message Buffer Address = #01805‘ 
1797 014275 045 116 045 PRIASC: .ASCIZ ‘sNSA Message Buffer Contents: ’ 
1798 014333 045 116 045 PRASC: .ASCIZ ‘ssNSA WordsD1sA: #0' 
fase -EVEN 
1801 -SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


TSv3 
ORM 


1824 


SGE XP 


GLOBAL ARE 
- PRINT EXPD/RECV 


014542 


012746 


002306' 
002304' 


014542’ 
000003 


000010 
014607' 
000001 
000004 


002322’ 
002466' 


014645' 
000005 


000014 


116 


Cv nessAce eurrens” °* 17102 


H5 


}ROUT INE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
- NUMBER OF WORDS IN BUFFER 

‘ 

s IMPLICIT INPUTS: 


20%: 


50$: 
045 PRMSGO: 


RO 


-ASCIZ 


- EXPECTED MESSAGE BUFFER 

- RECEIVED MESSAGE BUFFER 

- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


RO,RS 
RC WLOADD, »RO 


RO 
RCVHTADD R1 


@EXPMSG,R1 
@RECMSG ,R2 
(R1),RO 
(R2),R3 


RO,RS 
OPRMSG2 ,R4,(R1 ) ° 
R3, -(SP) 


sSAVE R1-RS UNTIL NEXT RETURN 
sSAVE NUMBER OF WORDS 
sGET RECV LOW ADDRESS 


IGH ADDRESS 
sSHIFT BITIS TO C BIT 
sSHIFT TO HIGH ORDER FOR PRINTOUT 
sPRINT MESSAGE BUFFER ADDRESS 


sPRINT HEADER FOR CONTENTS 


sNUMBER OF THE CURRENT WORD 
:GET EXPD BUFFER ADDRESS 
sGET RECV BUFFER ADDRESS 
3GET EXPO 

3;GET RECV 

s*OR EXPD/RECV 

o(R2)+,R3 


sNUMBER OF THE NEXT 
sDONE ALL YET? 

3;BR IF YES 

;00 ANOTHER 

;RETURN 


‘aNSA Message Buffer Address = #01805’ 


SEQ 059 


TSV3 _- GLOBAL AREAS 
PRMSGE 


1839 
1840 


014607 
014645 


015120 


045 
045 


110337 


122122 
001431 


013746 


MACRO M1113 01-FEB-84 17:02 
xP - PRINT EXPD/RECV MESSAGE BUFFERS 


116 
116 


002320' 


002322" 
002466 ' 


177400 
015300° 


177400 
015302’ 


002320' 
002320’ 


015302° 
015300' 


015146' 
000005 


000014 


002320' 


045 


045 PRMSG2: .ASCIZ ‘sSNA 
-EVEN 


000010 


PRMSG1: .ASCIZ 


I5 


‘aNSA Mess 


WORD @8D28A EXPD: SO6S8A RECV: SO06S8A 


SEQ 060 


Buffer Contents: ' 
XOR: #06’ 


-SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


3¢ 


a 
sROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
H ONLY THE FIRST 6 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 


- NUMBER OF BYTES IN BUFFER 


- EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER 


sSAVE R1-RS UNTIL NEXT RETURN 


sNUMBER OF THE CURRENT BYTE 
sGET EXPD BUFFER ADDRESS 
sGET RECV BUFFER ADDRESS 
sGET EXPO BYTE 

s;CLEAR UPPER BYTE 

sSAVE FOR ERROR REPORT 
sGET RECV BYTE 

sCLEAR UPPER BYTE 

sFOR ERROR REPORT 

sXOR EXPD/RECV 

sEXPD = RECV? 

3BR IF YES 

sUPDATE ERROR COUNT 
sPRINTED 8? 

BR IF YES 


308 
@PRBMSG,,R4,PRBEXP .PRBREC.R3 


: RO 

3 

: IMPLICIT INPUTS: 

é 

3 EXPMSG 

3 RECMSG 

PRBYTEXP:: 
SAVREG 
MOV RO,RS 
CLR 
CLR R4 
MOV @EXPMSG,R1 
MOV @RECMSG ,R2 

20%: MOVB CR1),RO 
BIC @tC<377>,RO 
MOVB RO, PRBEXP 
MO CR2),R3 
BIC @tC<377>,R3 
MOVB R3,PRBREC 
xOR RO,R3 
CMPB CR1)+,CR2)> 
BEQ 303% 
INC PRMNO 
CMP PRMNO, 08. 
BHI 

27s: PRINTX 
MOV R3, -(SP) 
MOV PRBREC, -( SP) 
MOV PRBEXP, -( SP) 
MOV R4,-C(SP 
MOV @PRBMSG, -(SP) 
MOV o5,-(S 
MOV SP ,RO 
TRAP CSPNTX 
ADD 014,SP 
FORCEXIT 50$ 
BR 353% 

30%: 

ase FORCERROR 27%,NOTSSR 
INC R4 
CMP R4,R5S 
BGE 50$ 
BR 20% 

50$: PRINTX @PRBTOT,PRMNO 
MOV PRMNO, -( SP) 


3880 

sNUMBER OF THE NEXT 
sOONE ALL YET? 

;BR IF YES 

300 ANOTHER 

sPRINT TOTAL ERROR COUNT 


TSV3_- GLOBAL AREAS 


MACRO M1113 01-FEB-84 17:02 


PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


015124 
0151350 
015134 
015136 
015140 
015144 


015146 
015233 


015300 
015302 


015304 
015304 
015304 
015310 
015310 
015310 


015312 
015312 
015312 
015316 
015316 
015316 


012746 015233' 
oe Lime 4 000002 


004737 007554’ 


104423 


004737 007424: 


104423 


. SBTTL 


sPRINT ROUTINE 
3 
; INPUTS: 


; R1 
Re 


BGNMSG 


“JSR 
ENDMSG 


TRAP 


. SBTTL 
3? 


; 
sPRINT ROUTINE 
; 


3 
: INPUTS: 


R1 
R2 


J5 


@PRBTOT, -( SP) 
#2, -(SP) 
sP 


CSPNTX 


sRETURN 


BYTE @8D28A EXPD: SO38A RECV: SO038A XOR: 803’ 


‘NSA NUMBER OF BYTES IN ERROR = #02’ 


ie) 
te) 


EXPREC 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 


EXPREC 
PC ,PRIXOR 


C$MSG 


3EXPD 
sRECV 


- PRINT EXPD/RECV WORD DATA 


sPRINT THE DATA 


EXPBREC - PRINT EXPD/RECV BYTE DATA 


TO DISPLAY BYTE EXPD/RECV DATA 


RECEIVED DATA BYTE 
EXPECTED DATA BYTE 


EXPBREC 
PC,PRIBXOR 


C$MSG 


sPRINT THE DATA 


SEQ 061 


TSV3_- GLOBAL AREAS ene LS 01-FEB-84 17:02 


EXPBREC - PRINT EXPD/RECV 


1953 015320 
015320 


-SBTTL RAMERR 


t¢ 


KS 


- PRINT RAM AND PACKET DATA 


3 
sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


: 

3; INPUTS: 

a 

: R4 


BGNMSG 


RAMERR: : 


1954 015320 004737 013606’ JSR 


1955 015324 
015324 
015324 104423 


1980 015326 
015326 


ENDMSG 


L10021: 
TRAP 


-SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 


3° 


IMPLICIT OUTPUTS: 
RAMSIZ 


PC ,PRAMPKT 


POINTER TO COMMAND PACKET 
a 
s IMPLICIT INPUTS: 


RAMDATA 
RAMSIZ 


DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 


IF RAMSIZ*0 THEN DEFAULT TO 8. 


SET TO 0 


3 
;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


; 

; INPUTS: 

; 

; R4 


ERRHI 
ERRLO 


BGNMSG RAMTADD 


RAMTADD: : 


1981 015326 004737 010106’ JSR 
1982 015332 004737 013606° JSR 


1983 015336 
015336 


E 
L10022: 


IMPLICIT OUTPUTS: 
RAMSIZ SET T0 0 


PC ,PRAMPKT 
NOMSG 


POINTER TO COMMAND PACKET 
3 
s IMPLICIT INPUTS: 


RAMDATA 
RAMSIZ 


DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 


IF RAMSIZ=0 THEN DEFAULT TO 8. 


HIGH ORDER TEST ADDRESS 
LOW ORDER TEST ADDRESS 


PC ,PRITADD s;PRINT TEST ADDRESS 
;PRINT RAM/PACKET DATA 


sPRINT RAM/PACKET DATA 


SEQ 062 


TSV3 - GLOBAL 
RAMTADD - PRINT TEST ADDRESS, RAM 


015336 


AREAS 


104423 


012746 


MACRO M1113 


177400 
177400 
007700' 
007554' 


015410' 
000001 


000004 
007554’ 


116 


AND 


045 


ACKET DATA 


TRAP 
:¢ 
: 
s;PRINT ROUTINE 
3 
s INPUTS: 


L10023: 
TRAP 


. SBTTL 
3° 


; 
sPRINT ROUTINE 
s;AND TIMER A,B 


3 

3; INPUTS: 
; 

; R1 
: R2 
3 - 


BGNMSG 
TIMEXP: : 
PRINTX 

Vv 


L10024; 


TIMSGO: .ASCIZ 
EVEN 


. SBTTL 


LS 


SEQ 063 
C$MSG 
RAMEXP - PRINT RAM EXPD/RECV DATA 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 


RAME xP 

@*C<377>,R1 sSAVE EXPD RAM DATA BYTE 
@tC<377>,R2 sSAVE EXPO RAM DATA BYTE 
PC ,.PRIRAM sPRINT THE RAM ADDRESS 
PC ,.PRIXOR sPRINT THE DATA 

C$MSG 


TIMEXP - PRINT TIMER A,B AND EXP/REC 


TO DISPLAY EXPD/RECV DATA 
HEADER MESSAGE 


RECEIVED DATA 

EXPECTED DATA 

TIME XP 

@TIMSGO ;PRINT HEADER 
@TIMSGO, -( SP) 

#1, -(SP) 

SP ,RO 

CSPNTX 

@4,SP 

PC,PRIXOR sPRINT THE DATA 


C$MSG 


‘sNSA TIMER A STATUS IS IN BIT 3eNSA TIMER B STATUS IS IN BIT 2° 


BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 


TSV3 - GLOBAL AREAS 


015510 
015510 
015510 
015512 
015516 
015516 
015520 
015524 
015530 
015532 
015534 
015540 
015542 


2046 015546 


015546 
015546 
015550 


010246 
042702 


010246 
012746 


MACRO M1113 
BADSSR - PRINT TsSR ERRORS ON DATA TRAN 


177400 


015550’ 
000002 


000006 
005636’ 


116 


045 


MS 


01 -FEB-84 17:02 
ANSFERS 


3 
a 
sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 


3 
; INPUTS: 
. 


; R1 CONTENTS OF TSSR 
; R2 DATA WRITTEN (8 BITS) 
3 
t- 
BADSSR 
BADSSR: : 
R2, -CSP) sSAVE DATA TRANSFERRED 
BIC #177400,R2 ;GET JUST ONE BYTE 
PRINTB @XFERASC,R2 
MOV R2,-CSP) 
MOV @XFERASC, -( SP) 
MOV 2, -(SP) 
MOV SP, 
TRAP CsPNTB 
ADD #6, SP 
MOV (SP)+,R2 sRESTORE R2 
JSR PC,PRITSSR ;DECODE TSSR CONTENTS 
ENOMSG 
L10025: 


AP C$mMSG 
XFERASC: -ASCIZ ‘SNSA Data Transferred = #03' 
.SBTTL GLOBAL SUBROUTINES SECTION 


3° 

5 THE GLOBAL SUBROUTINES SECTION 2 mame THE SUBROUTINES 
3; THAT ARE USED IN MORE THAN ONE T 

ge 


-SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 
3¢ 


; 

sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
3;BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
;THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
sDETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 


Hy 
; INPUTS: 
3 


; RS ADDRESS OF FIRST REGISTER 
é 
sOUTPUTS: 
; 
RO CONTENTS OF TSSR, IF ERROR 
CARRY SET IF INIT WAS OKAY 


; 
; 
; CLEAR IF FATAL ERROR 
; 
sCALLING SEQUENCE ; 


SEQ 064 


TSV3 - GLOBAL AREAS 
SOF IN 


IT 


- SOFT INITIALIZE OF CONTROLLER 


015720 


012765 
004737 


MACRO M1113 O1-FEB-84 17:02 


100000 
174077 


000200 
000040 


177761 
000016 


3° 


VREG 


SEC 
7S 


- SBTTL 


@ADDRESS RS 
PC ,SOF INIT 
CON) INJE 


#0, TSSRC(RS) 
PC 


RO,R 
OPC <HIADOR!OFL>, R4 


@SSR!NBA,R4 
R4,RO 

S$ 

10$ 


PC 


sREPORT FATAL ERROR 


s+ SAVE THE REGISTERS 
:; 0O THE INIT 
; WAIT FOR SSR 
iGET THE TSSR REGISTER 
sTSSR CONTENTS 


sR4 HAS EXPECTED CONTENTS 
sONLY EXPECTED BITS SET ? 
sBRANCH IF OKAY 

sCLEAR THE CARRY FOR ERROR 
sGO TO EXIT 

sSET THE CARRY BIT 

sRETURN TO CALLER 


CHKAMB - CHECK TSSR FOR AMBIGUITY 


; 
sTHIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
sFOR AMBIGUITY 


; 

s INPUT: 
; 

; 


; 
sOUTPUT: 


5$: 


RO 


CONTENTS OF TSSR 


CONTENTS OF TSSR 


SET - NO AMBIGUITY 
CLR - AMBIGUOUS CONTENTS 


RO,R4 
+ 2RO 


@*C<NBALOFL !SSRIMTADOR> RO 


1 

oBITS,RO 

40$ 
@rCTERCLS,R4 
R4, #16 - 


sSAVE THE GENERAL REGISTERS 
sCONTENTS OF TSSR 

sIS BIT 15 SET ? 

s;BRANCH IF YES 

sANY OTHER BITS SET ? 
;MUST BE AN ERROR 

sRETURN WITH SUCCESS 

sIS READY BIT SET ? 

sBRANCH IF READY BIT IS SET. 
:IS FATAL ERROR BIT SET ? 
sERROR IF NOT 

;CLEAR ALL BUT TERMINATION CODE 
sALL THREE BITS MUST BE SET 


SEQ 065 


B6 


TSv3 - GLOBAL AREAS MACRO M1113 O1-FEB-84 17:02 SEQ 066 
CHK AMB CHECK TSSR FOR AMBIGUITY 

2134 015724 001007 BNE 408 sERROR IF NOT SET 
2135 015726 000410 BR 45% 30K IF ALL ARE SET 
2136 015730 032700 000040 108; BIT @BITS,RO 1IS FATAL ERROR BIT SET ? 
2137 015734 001405 BEQ 453 sERROR IF BIT IS SET WITH SSR 
2138 015736 032700 000006 BIT OBIT2:BIT1,RO sIS THIS A FUNCTION REJECT 
2139 015742 001002 BNE 453 s6R, IF TSSR IS OK 
2140 015744 000241 408; cLc sAMBIGUOUS CONTENTS 
2141 015746 000401 BR 508 
2142 015750 000261 45%: SEC sSHOW SUCCESS - NO AMBIGUITY 
Stas 015752 000207 508: RTS PC sRETURN TO CALLER 
tpt -SBTTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 

146 : 
2147 3 DEFAULT DISPLAY INTERRUPT HANDLERS. 
2148 s IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
2149 : OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 
sisi 
tt : BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 

1 3 
2154 000200 IOKCKIN«BIT7 s DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL. 
es 000001 IOKSTP*BITO 3 EXPECT “STOP” INTERRUPT. 

3 
2157 s INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 
2158 015754 000 INTMASK YTE 1?) 
2159 TINTERRUPT FLAG - -- SAYS WE GOT ONE CIF POSITIVE) 
Stee 015755 000 INTFLAG: BYTE 0 
2162 sSAVED INTERRUPT VECTOR: 
2163 015756 000000 INTVEC: .WORD 0 
2164 sSAVE CPU PC 
cree 015760 000000 INTCPC: .WORD 0 
2167 sSUBROUTINE TO ENABLE INTERRUPTS: 
2168 015762 010046 ENAINT: MOV RO, -( SP) sSAVE RO 
2169 015764 013700 002210’ MOV IVEC RO sGET POINTER TO VECTORS 
2170 015770 012720 016026' MOV @INTR,(RO)- 3SET UP INTERRUPT VECTOR 
2171 015774 012720 000340 MOV @PRIO7,(CRO)> 
2172 016000 012600 MOV (SP )+,RO sRESTORE RO 
2173 016002 011646 MOV (SP), -CSP) 
2174 016004 012766 000000 000002 MOV @0,2(SP) sSET CPU TO LEVEL O 
Sine 016012 000002 RTI 
2177 sSUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
21786 016014 011646 OSBINT: MOV (SP), -(SP) 
2179 016016 012766 000340 000002 MOV OPRIO7, 2(SP) 
tet 016024 000002 RTI 
eres -SBTTL INTR - INTERRUPT HANOLERS 
2184 016026 BGNSRVY INTR sDEF INE INTERRUPT ENTRY 
016026 INTR:: 

2185 016626 012737 000001 002224' MOV #1, INTRECV sSET FLAG TO SHOW INTERRUPT RECEIVED 
2186 016034 105037 015755’ CLRB INTFLAG sCLEAR FLAG TO SAY WE GO? INTERRUPT 
2187 016040 132737 000001 015754’ BITB es INTMASK IEXPECTING STOP INTERRUPT? 
2188 016046 001003 BNE 38R IF YES 


2189 016050 152737 000001 015755' BISB OTOKSTP, INTFLSG iNO. SET THE ERROR FLAG. 


TSVS - GLOB 


INTR 


2190 
2191 


016056 
016056 
016056 
016056 


016144 


C6 


AREA MACRO M1113 O1-FEB-84 17 
OONTERRUPT HANDLERCS “LLLS O1-FEB-84 17:02 SEQ 067 


000002 


011000 
000002 


000001 
002116' 
177772 
177756 


sSAVE REGISTERS, MSG BUFFER, ETC. 


18; 
ENOSRV 
L10026: 
RTI 
.SBTTL WAITF - WAIT FOR SUBSYSTEM READY 
a 
: SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
’ 
s INPUTS: 
H 
4 RS ADDRESS OF FIRST DEVICE REGISTER 
sOUTPUTS: 
b 
Hy RO CONTENTS OF LAST TSSR READ 
Fy CARRY SET - READY BIT SET 
3 CLR - TIMEOUT WAITING FOR READY 
¢ 
WAITF:: BR 1s sNOP WHEN SUPER FIXED 
BREAK : DO A SUPVSR BREAK FIRST. 
TRAP CsBRK 
18: MOV #11000, -( SP) 325-APRIL-83 REV B - 1100 MSEC TIMER 
2s: MOV TSSRCRS),RO sREAD THE TSSR REGISTER 
TsT8 RO sTEST FOR READY BIT SET 
BMI 3% 3s EXIT ON STOP FLAG. 
DELAY 1 s WAIT 100 USEC 
MOV 1,(PC)>» 
- WORD 0 
MOV LSDOLY,(PC)-> 
.WORD 0 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 
DEC (SP) sREOUCE Di: LAY COUNT 
BNE es sRETRY UNTIL TIMER EXPIRES 
cLc : C = O, CONTROLLER STILL RUNNING... 
38: SEC ; C = 1, CONTROLLER IS STOPPED. 
4%: 2) Sa sRESTORE STACK WITHOUT CHANGING CARRY BIT 


-SBTTL CHKTSSR - CHECK TSSR FOR READY 
3° 
3 
sTHIS ROUTINE WAITS FOR READY IN THE TSSR 
sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR, 


3 

s INPUT; 

3 

3 RS ADDRESS OF CSR REGISTERS 
3 


Cantssn: Bae ck eae FoR READY IIS 01 -FEB-84 17:02 


2236 
2237 


016146 
016146 


012737 


001407 


016060' 
015654" 
100000 
074000 


016242' 
000200 


016252’ 


000004 
000006 


sOUTPUT;: 


108: 


158: 
208: 


RO 
CARRY 


. SBTTL 


CONTENTS OF TSSR 
SET - OKAY 


D6 


CLR - NOT READY AMBIGUOUS, OR SC SET 


at »WAITF 
at a 


osc, RO 


sWAIT FOR READY 

sBRANCH IF TIME OUT 
3TSSR oe 

36R IF YE 

sSPECIAL CONDITION SET? 
BR IF NO 


158 3 
ce ne sANY ERROR BITS SFT? 


sBR 
3SET FAILURE 


20% 3 

sSET SUCCESS 
PC sRETURN TO CALLER 
XNXM - CHECK FOR NONEXISTENT MEMORY 


3¢ 

s ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
: ON RETURN, IF "C” = 1, (R1) = NEXM ADDRESS. 

"C“ = 0, ALL ADDRESSES OK. 


38; 


MOV ADR1,R1 
MOV ADR2,R2 
JSR PC ,NXM 
RE TURIN 
MOV 023,804 
MOV OPRI04 , 906 
CLR R3 
CLC 
TsT CR1) 
CMP R1,R2 
BEQ 3$ 
ADD 2,R1 
BR i$ 
COM R3 
MOV 033,(SP) 
RTI 
CLRVEC 04 

Vv 04 ,RO 
TRAP CsCvec 
TST R3 
BEQ 04 
SEC 
RTS PC 


sTEST “C” AND PROCEED. 


s SET BUSERR VECTOR. 


sFLAG. 

sCLEAR THE CARRY FOR NO NXM FOUND 
sTEST THE ADDRESS(ES). 

sIF ANY TRAP, CONTINUE AZ 28. 
sOTHERWISE, CONTINUE HERE. 

3BR IF FINISHED (NO NEXM’'S). 

;SET NEXT ADDRESS... 

3..-AND CONTINUE. 


sGOT ONE, SET FLAG... 
s...AND DISMISS INTERRUPT... 
s...AND GIVE BACK THE VECTOR. 


s0ID WE CATCH ONE ?? 
sNO, "C" = O, SKIP NEXT. 
sYES, "C" * 1, (RL) + NEXM ADOR,. 


SEQ 068 


TSV3 - GLOBAL AREAS 


XNXM 


- CHECK FOR NONEXISTENT MEMORY 


016270 
016270 
016274 
016276 
016302 
016304 
016310 
016312 
016314 
016316 
016320 


016322 
016322 
016324 
016330 
016334 
016340 
016344 
016350 
016352 
016356 


005737 
006 


E6 


MACRO M1113 O1-FEB-84 17:02 


002170’ 
002204' 
002216' 


003154’ 
016570' 
005604 ' 
015754' 
002202" 


003114' 


-SBTTL TSTLOOP - CHECK ITERATION COUNT 
SUBROUTINE TO EXECUTE TEST ITERATIONS. 
EXIT WITH "C” SET IF LOOPS ALLOWED ANDO LOOP COUNT NON-ZERO. 
LOOP COUNTER IS SET BY “BEGIN. TEST” MACRO. 


CALL: LOOPTO ARG 


—dee oe oe oe oe oe of 


STLOOP:: 
TsT NOITS s ITERATIONS INHIBITED? 
BNE 1$ s YES. 
TST Qve 3s NO. 
BMI 1$ sLOOPS DISALLOWED IN QUICK PASS. 
a — : BUMP LOOP COUNTER. 
18: ut 38 sLOOP DISALLOWED, OR DONE. 
2s: SEC sLOOP ENABLED. 
38; RTS PC 


-SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


> 

PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
INCREMENT “TESTK” TO INDICATE THE NUMBER OF TESTS 

IN THE CURRENT RUN SEQUENCE. 

CLEAR THE ERROR COUNTER ANO SIGNATURE EXTENSION FLAGS. 


RO POINTER TO TEST ID ASCIZ STRING 
OUTPUT: 

RS ADDRESS OF FIRST DEVICE REGISTER 
IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
SIDE EFFECTS: 


INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 


TSTSETUP:: 
MOV RO, -(SP) sSAVE THE TEST ID MESSAGE 
CLR SIFLAG : CLEAR “SOFT INIT” FLAG 
CLR ERRK 3 CLEAR LOCAL ERROR COUNTER. 
CLR EXTA ; CLEAR ERROR EXTENSION FLAG. 
CLRB INTMASK ; CLEAR INTERRUPT MASK (CHECK ERROR) 
MOV UNITN,RO : GET THE UNIT NUMBER, 
ASL RO 3... AND MAKE IT A WORD OFFSET. 
TST NODE V : DID STARTUP FIND THE DEVICE? 
BEQ 43 ; BR IF YES 


SEQ 069 


TSV3_- GLOBAL AREA 
TSTSETUP - PRINT TEST NAME 


016516 


016532 
016532 
016534 
016540 
016542 
016542 
016546 
016552 


100010 


052760 160000 003176’ 


eess 


000002 
004331' 
000000 
012737 


013700 
104451 


104444 
000423 


104421 
032700 


013746 
012746 
012746 


160001 003176' 


177777 003112’ 


002202' 


001000 
016516’ 
000002 


000006 
002214’ 
002212’ 


002206’ 
123 


020000 


016570' 
016572' 
000002 


045 


3$: 


1$: 


S$: 


TNAM: 


PERS HAHT Bake Bd? 


. SBTTL 


F6 


IF NOT IOLE 


3$ s BR 
#160000 ERTABL (RO) ts FLAG ERROR IN THE ERROR TABLE 


1,NXR,NXRERR NO DEVICE HERE -- PRINT IT 
— 
NXR 
—— 

$ 
#160001 ,ERTABL(RO) + FLAG ERROR IN THE ERROR TABLE 
2,NOINIT s DEVICE NOT IOLE 
yomed 
_ 
@-1,D0UFLG ; DROP THE UNIT 
UNITN 
UNITN,RO 
Cs000uU 

: ABORT THE PASS 

Cs$0CLN 
S$ 
RO ; GET THE OPERATOR FLAGS. 
CSRFLA 
OPNT ,RO : PRINT THE TEST NUMBERS? 
1$ ; BR IF NO 
(SP),RO sGET THE ID MESSAGE 
coe int sOISPLAY THE TEST ID 
@TNAM, -( SP) 
@2, -(SP) 

eRO 
hg 
TSTCNT ; BUMP TEST COUNTER. 
IPRI sPRIORITY THAT OF DEVICE 
IPRI,RO 
Cs$SPRI 
(SP )-> sFIX UP THE STACK 
ow s ADDRESS OF TSV REGISTERS ON UNIBUS 


‘SSSTSA Test’ 


TSTEND 


- PRINT ERRORS RECEIVED 


: AT ENO OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
; IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 


TSTEND: eee RO 


C$RFLA 
RO, @IER 


1$ 
OE SUM, ERRK 


; BR IF “IER” NOT SET. 
; PRINT ERROR COUNT. 


ERRK, -( SP) 
@ESUM, -( SP) 


02, -(SP) 


SEQ 070 


172 
TSTEND 


- PRINT 


016556 
016560 
016562 
016566 


016570 
016572 
016611 


016712 


016714 
016716 
016722 
016724 
016730 
016734 
016740 
016742 
016750 


017012 


GLOBAL AREAS 
ERRORS REC 


045 
105 


012737 
104455 
000004 
016611°' 
000000 
013700 
104451 
104444 


012600 
000207 


VED 


101 
122 


040 
122 


016570' 
002202' 
003176’ 
007777 


002202' 
003176’ 
170000 
002174' 
016570' 002172’ 
000040 


177777 003112' 


002202’ 


paged M1113 O1-FEB-84 17:02 


SEQ 071 


LOCAL ERROR COUNT. 


ERROR LIMIT REACHED -- DROPPING UNIT/ 


- INCREMENT LOCAL ERROR COUNT 


3¢ 
; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


MOV PRO 
TRAP CSPNTF 
ADD #6,SP 

1$: RTS PC 

ERRK; 0 

ESUM: -ASCIZ /#A SDA ERRORS/ 

EMAXDU: .ASCIZ 
-EVEN 
-SBTTL INCERK 

3 - 

INCERK: INC ERRK 
MOV RO .~ ¢ sP ) 
MOV UNITN,RO 
ASL RO 
ADD SERTABL ,.RO 
INC CRO) 

I #7777,CRO). 

BNE 1$ 
DEC CRO) 

1 $ $ MGY ¢ SP ) %. RO 
RTS PC 

CKEMAX: MOV RO, -( SP) 
MOV UNITN,RO 
ASL RO 
MOV ERTABL(RO),RO 
BIC #170000 ,RO 
CMP RO, GERRMAX 
BHIS 1$ 
CMP ERRK ,LERRMAX 
BLO 2s 

1%: RFLAGS RO 
TRAP CSRFLA 
BIT @IDU,RO 
BNE 2s 
MOV oo 1 ° DUFLG 
ERROF 4,EMAXDU 
TRAP CSEROF 
-WORD 4 
-WORD EMAXDU 
-WORD O 
DODU UNITN 
MOV UNITN,RO 
TRAP Cs000uU 
DOCLN 
TRAP CsSOCLN 

2s: MOV (SP)+,RO 
RTS PC 
-SBTTL CKDROP 


a LOCAL ERROR COUNT 


AND MAKE IT A WORD OFFSET. 
RO GETS ADDRESS OF ERROR TABLE ENTRY. 
INCREMENT THE DEVICE ERROR COUNT 
a ee THE FIELD? 


YES -- % IT uP TO 7777. 
RESTORE R 
RETURN TO CALLER. 


SAVE RO 

GET UNIT NUMBER 

... AND MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
BR IF YES 

TS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
BR IF NO 


GET OPERATOR FLAGS 
IS DROPPING INHIBITED? 


BR IF YES. 
NO -- DROP THE UNIT 


RESTORE RO 
RETURN TO CALLER 


- CHECK IF UNIT SHOULD BE DROPPED 
3° 
; CHECK IF UNIT SHOULD BE DROPPED 


H6 


TSV3 _- GLOBAL AREAS Oo 1113 -FEB-84 17:02 SEQ 072 
CKDROP - CHECK IF UNIT SHOULD be drovted 
2427 017014 010046 CKDROP: MOV RO, -( SP) 
2428 017016 FORCERROR 1$,NOTSSR 
2429 017026 RFLAGS RO 
017026 104421 TR CSRFLA 
2430 017030 032700 000040 BIT @I0U,RO 
2431 017034 001010 BNE 1% 
2432 017036 011600 MOV (SP),RO 
2433 017040 012737 177777 003112’ MOV @-1,0UFLG 
2434 017046 *  podu UNITN 
017046 013709 002202’ MOV UNITN,RO 
017052 104451 TRAP Cs000U 
2435 017054 DOCLN sABORT THE PASS 
017054 104444 TRAP CSDCLN 
2436 017056 012600 18: MOV (SP)+,RO 
sos 017060 000207 RTS PC 
ote -SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
o 
ort) ; SUBROUTINE - DETERMINE CONFIGURATION OF TSUOS SYSTEM. 
7 
2443 017062 CONFIG: 
2444 017062 004737 015604’ JSR PC, SOF INIT 
Sean 017066 000207 RTS PC 
oot -SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
; 
oot ; SUBROUTINE - ENABLE MEM MGT. 
3 
2451 017070 005737 003132’ KTON: TST KTFLG 3; GOT KT? 
2452 017074 001403 BEQ 1$ ; NO. 
2453 017076 012737 000001 177572 MOV @1,SRO s YES. ENABLE KT11. 
2454 017104 000207 1%: RTS PC 
2455 
2456 
2457 
2458 : 
se ; SUBROUTINE - DISABLE MEM MGT. 
3 
2461 017106 005737 003132’ KTOFF; TST KTFLG ; GOT KT11? 
2462 017112 001405 BEQ 1$ ; NO. 
2463 017114 000240 NOP 
2464 017116 000240 NOP 
2465 017120 012737 000000 177572 MOV @0, SRO ; DISABLE KT. 
a? 017126 000207 18: RTS PC 
ote -SBTTL SETMAP - SETUP PAR6 MAPPING 
2470 3° 
2471 3 
2472 ;THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
2473 sAN 22 BIT ADDRESS. THE OFFSET INTO THE PAGE 
2474 +IS RETURNED BIASED TO PARE. 
2475 3 
2476 ; INPUTS: 
2477 ; 
2478 ; RO HIGH ORDER ADDRESS BITS 


2479 : R1 LOW ORDER ADDRESS BITS 


TSV3 - GLOBAL AREAS 
SETUP 


SE TMAP 


T 


017130 


88 017130 


017134 
017140 
017142 


017174 


017234 
017234 
017240 
017244 
017246 


2529 017252 


017256 
017260 
017262 
017264 
017270 
017272 
017276 


PAR6 MAPP 


16 


werne M1113 O1-FEB-84 17:02 SEQ 073 
;OUTPUTS 
i 
3 RO OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
F CARRY SET IF SUCCESS 
3 CLR IF ERROR 
he 
SETMAP : 
SAVREG sSAVE R1-R4 UNTIL NEXT RETURN 
003132’ TST KTFLG sSYSTEM HAVE ABOVE 28K? 
BEG 10$ ;6R IF NO 
rapt wares sSAVE LOW ORDER BITS 
ASR RO sCONVERT WORD ADDRESS TO Z2w BLOCKS 
es R1 sMAKE IT DOUBLE PRECISION 
000177 BIC #177,R1 sALINE FOR LOWER 4K BOUNDARY 
003132' CMP R1,KTFLG sHIGHER THAN EXISTING MEMORY? 
BHIS 10$ 3;68R IF YES 
172354 MOV R1, BOK IPARG ;SETUP MAPPING REGISTER PARG 
160000 BIC #160000 ,R2 sSETUP DISPLACEMENT IN PAGE 
140000 ADD #140000 ,R2 3ADD IN PAR6 BIAS 
MOV R2,RO sRETURN IN RO 
SEC 3SET SUCCESS 
BR 158 3 
10$: cLCc 3SET FAILURE 
158: RTS PC sRETURN 


-SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
” FILL MEMORY WITH A BACKGROUND PATTERN 
INPUTS: 

RO = BACKGROUND PATTERN 

FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 


: 
; 
; 
; 
; 
; 
; 
; KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 
i 
: 
i 
; 
i> 
; 
F 


OUTPUTS: 
NONE 
ILLMEM: 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
017106’ JSR PC ,KTOFF sOISABLE KT. 
MOV RO,R3 sCOPY TEST PATTERN 
003124' MOV FREE ,R1 :GET FIRST FREE LOCATION 
003126’ MOV FRESIZ,R2 sSIZE OF FREE SPACE BELOW 28k. 
108: MOV R3,CR1)> sSTORE A BACKGROUND WORD 
DEC R2 sD0NE ALL MEMORY IN FREE SPACE? 
BGT 10$ ;68R IF NO 
003132’ TsT KTFLG : GOT KT? 
BEG 558 3; NO. GET OUT. 
017070 JSR PC,KTON : YES. ENABLE KT. 


CLR RO sHIGH ORDER ADDRESS START 


J6 


TSV3 - GLOBAL AREAS MACRO M1113 O1-FEB-84 17:02 SEQ 074 
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
2537 017300 013701 003152’ MOV PST3S2W,R1 ;GET >28K START ADDRESS (IN 32W BLOCKS) 
2538 000006 .REPT 6 
2539 cLC :CLEAR C BIT 
2540 ROL R1 sCONVERT BLOCKS TO WORDS 
e341 « RO sMAKE IT DOUBLE PRECISION 
2543 017350 004737 017130' JSR PC, SETMAP s;SETUP PAR6 MAPPING REGISTER 
2544 017354 010320 308: MOV R3,CRO)> sSTORE TEST PATTERN IN >28K ADDRESS 
2545 017356 020027 160000 CMP RO, #160000 END OF PAR6 MAPPING AREA? 
2546 017362 103774 BLO 308 ;BR IF NO 
2547 017364 162700 020900 SUB #20000 , RO s;BACKUP INTO PAR6 MAPPING BEGIN 
2548 017370 062737 000200 172354 ADO @200,80KIPAR6 ;POINT TO NEXT 4K BLOCK >28K. 
2549 017376 013705 003132’ MOV KTFLG,RS sGET VALUE FROM MEMORY SIZER 
2550 017402 042705 170000 BIC #170000 ,R5 s;ONLY 18 BITS PASS 
2551 017406 023705 172354 CMP BOK IPARG RS sEND OF MEMORY? 
2552 017412 001427 BEQ 50$ ;8R IF YES 
2553 017414 005737 003144' TST T23A sPROCESSOR TYPE A 
2554 017420 001407 BEQ 358 3NO KEEP GOING 
2555 017422 013704 177572 MOV SRO,R4 s;GET SRO CONTENTS 
2556 017426 042704 177761 BIC @177761,R4 ;CLEAR ALL BUT PAGE NUMBER 
2557 017432 022704 000016 CMP @16,R4 3;SEE IF PAGE 7 
2558 017436 001415 BEQ 50$ sEXIT IF THERE 
2559 017440 005737 003146’ 358: TST T238 sPROCESSOR TYPE 6B 
2560 017444 001410 BEQ 453 3NO KEEP GOING 
2561 017446 023727 172354 007600 cmp @OKIPAR6,@7600 ;REACHED 18 BITS? 
2562 017454 103001 BHIS 40$ 3 YES 
2563 017456 000403 BR 453 3NO KEEP GOING 
2564 017460 012737 000020 172516 40%: MOV @20,SR3 3SET MMU RELOCATION 
2565 017466 000137 017354’ 45$: JMP 30% sKEEP GOING ON ETC. 
2566 017472 004737 017106’ 50$: JSR PC .KTOFF ; DISABLE KT. 
2567 017476 000207 553: RTS PC 
F344 .SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
3¢ 
oavk 3; COMPARE MEMORY WITH A BACKGROUND PATTERN 
; 
2573 ; INPUTS: 
2574 ; 
2575 ; RO = BACKGROUND PATTERN 
2576 ; FREE * FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
2377 3 KTFILG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 
Hy 
2579 ; OUTPUTS: 
2580 3 
2581 : CARRY - SET IF NO ERROR 
2582 3 CARRY - CLR IF ERROR 
2583 ; 
e344 3; IMPLICIT OUTPUTS: 
; . 
2586 : ERRHI - ERROR HIGH ADDRESS 
2587 ; ERRLO - ERROR LOW ADDRESS 
2588 : EXPD - EXPECTED DATA 
2589 ; RECV - RECEIVED DATA 
2590 - 
2591 017500 CMPMEM: 
2592 017500 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 


2593 017504 010003 MOV RO,RS ;COPY TEST PATTERN 


TSV3_- GLOBAL AREAS 
CMPMEM 


017572 


017626 
017632 
017634 
017636 
2620 017642 
017644 
017646 
017650 
017652 
017654 
017660 
017664 
017670 
017674 
017676 
017702 
32 017704 
017710 
017714 
017716 
36 017722 
017730 
017736 
017740 
017744 
017746 
017750 
017754 
017756 


- COMPARE MEMORY T 


002240' 
002236' 
002232’ 
002234’ 


003132’ 
017070' 
003152" 


000002 
160000 


020000 
000200 
172354 
017106’ 


017106' 


K6 


Sun paftenn 170? 


172354 
003132' 


JSR PC ,KTOFF 

MOV FREE Ri 
MOV FRESIZ,R2 

108: CMP R3,(R1L) 
BEQ 15% 
MOV R1,ERRLO 4 
CLR ERRHI 
MOV R3,EXPD - 
MOV (R1),RECV 
BR : 

158: TST (R1)> 
DEC R2 
BGT 10% 
TST KTFLG 
BEQ 55% 
JSR PC ,KTON 
CLR RO 
MOV PST32W,R1 
REPT 6 
ROL Ri 
ROL RO 
.ENOR 
BIC 177,R1 
MOV »-CSP) 
MOV R1,-CSP) 
JSR PC, SETMAP 
MOV ~R4 
MOV (SP)+,R1 
MOV (SP)+,RO 

308: CMP R3,(R4) 
BEQ 328 
MOV RO, ERRHI 
MOV R1,ERRLO 
MOV R3,EXPD 
MOV (R4),RECV 
BR $ 

32$: ADD o2,R1 
ADC 0 
ADD @2,R4 
CMP R4, #160000 
BLO $ 
SUB #20000 ,R4 
ADD 200, BOK IPARG 
CMP BOKIPARG ,KTFLG 
BLOS 30$ 

50$: JSR PC ,KTOFF 
CLC 
BR 60$ 

55%: JSR PC ,KTOFF 
SEC 

60$: RTS PC 
.SBTTL REGSAV 

3° 

; 

;ROUTINE TO 


;SAVE R1 THROUGH RS ON THE STACK 


- SAVE R1-RS ON STACK Se 


sOISABLE KT. 

;GET FIRST FREE LOCATION 

sSIZE OF FREE SPACE BELOW 28K. 

sFREE SPACE LOCATION EQUAL TO ExPD? 
3;8R IF YES 

sSAVE ADDRESS IN ERROR 

: HIGH ADORESS 

sSAVE EXPD FOR CRROR REPORT 
sSAVE RECV FOR ERROR REPORT 


: 
sPOINT TO NEXT ADDRESS 
oe a MEMORY IN FREE SPACE? 


: YES. ENABLE KT. 
sMIGH ORDER ADORESS START 
sGET »>28K START ADDRESS CIN 32W BLOCKS) 


sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sALINE 4K BOUNDARY 

sSAVE HIGH ORDER 

sSAVE LOW ORDER 

sSETUP PAR6 MAPPING REGISTER 
sCOPY ADDRESS BIASED TO PARE 


sABOVE 28K LOCATION EQUAL EXPD? 
sBR IF YES 

sSAVE HIGH ORDER IN ERROR 

sSAVE LOW ORDER IN ERROR 

sSAVE EXPD FOR ERROR REPORT 
sSAVE RECV FOR ERROR REPORT 


3 

sUPDATE NON PAR6 ADDRESS 
sMAKE IT DOUBLE PRECISION ADD 
;UPDATE PAR FORMAT ADDRESS 
3END OF PAR6 MAPPING AREA? 
;8R IF NO 

;BACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 
sEND OF MEMORY? 

;68R IF NO 

3: TURN OFF MEMORY MAPPING 

:SET FAILURE 


i 
sTURN OFF MEMORY MAPPING 
;SET SUCCESS 


SEQ 075 
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REGSAV 


- SAVE R1 


a 
-RS ON 
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STACK 


000012 


L6 


SEQ 076 


; 
sCALLING SEQUENCE: 


3 

; JSR RS ,REGSAV 

; THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
sTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
pi Bit Ray RETURNS CONTROL TO THIS ROUTINE TO RESTORE 

3 . 


; THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
sCALLED VIA A JSR PC INSTRUCTION 
° 


REGSAV: 

Vv R4,-CSP) 
MOV R3,-CSP) 
MOV R2,-CSP) 
MOV R1,-CSP) 
MOV RS,-CSP) 
MOV 10.(SP),RS 
JSR PC ,aCSP)-+ 
MOV (SP)+,R1 
MOV (SP)+,R2 
MOV (SP)+,R3 
MOV (SP )+,R4 
RTS PC 


-SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 


3° 
3 
sROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 


: 
; INPUTS: 
a 
3 NONE . 
. 
;OUTPUTS: 
; 
; RO OCTAL NUMBER FROM THE OPERATOR 
of 
sCALLING SEQUENCE: 
3 
3 JSR PC ,GETPAT 
7 
- 
GETPAT:: 
SAVREG ;SAVE THE GENERAL REGISTERS 
1$ GMANID DATASC,PATDOAT,O,377,0,377,NO 
RAP C$GMAN 
BR 10000$ 
. WORD PATDAT 
WORD TSCODE 
. WORD DATASC 


2739 
2740 


M6 


AREA MA M11 -FEB-84 17:02 Q@ 077 
8 Bit PATTERN FROM beerkton - 
000377 . WORD 377 
000000 WORD TSLOLIM 
000377 . WORD TSHILIM 
10000$; 
BNCOMPLE TE 1$ sRETRY IF ERROR 
103367. Bcc 1$ 
013700 020050’ MOV PATDAT ,RO ;CATA PATTERN FROM OPERATOR 
000207 RTS PC sRETURN TO CALLER 
7° 
;LOCAL DATA AREA 
g* 
000000 PATDAT: .WORD 0 ; TEMPORARY STORAGE FOR DATA 
105 116 124 DATASC: .ASCIZ ‘ENTER DATA PATTERN’ 
-EVEN 
.SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
3° 
i 
sROUTINE TO ISSUE A MENU AND GET 
3; THE OPERATOR'S RESPONSE. 
3 
; INPUTS: 
3 
3 RO ADDRESS OF ASCIZ STRING OF MENU 
3 R1 MAXIMUM ALLOWABLE OPERATOR RESPONSE 
° 
sOUTPUTS: 
; 
: RO NUMBER OF THE OPERATOR'S SELECTION 
a 
37 
GE SEL:: 
SAVREG sSAVE GENERAL REGISTERS 
010002 MOV RO,R2 s;SAVE THE MENU ADDRESS 
010203 1$: MOV R2,R3 sSTART OF MENU STRING 
005713 2s: TST CR3) sEND OF ASCII ? 
001412 BEQ 3$ ;BRANCH IF ALL LINES DISPLAYED 
PRINTF @SELASC,(R3)>+ sDISPLAY THE MENU 
012346 MOV (R3)+,-CSP) 
012746 020262’ MOV @SELASC, -( SP) 
012746 000002 MOV @2,-(SP) 
010600 MOV SP ,RO 
104417 TRAP CSPNTF 
062706 000006 ADD 06 ,SP 
000764 BR es 
3$: GMANIO MENASC ,MENRES,.D,-1.0,-1,.NO 
104443 TRAP C$GMAN 
0004 BR 10001$ 
020316' . WORD MENRES 
000042 . WORD TSCODE 
020267' . WORD MENASC 
177777 . WORD -1 
000000 » WORD T$LOLIM 
177777 .» WORD TSHILIM 


TSV3 - GLOBAL AREAS MACRO M1113 O1-FEB-84 17:02 SEQ 078 
GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
020156 10001$: 
2741 020156 BNCOMPLE TE 1$% sRETRY IF ERROR 
020156 103352 Bcc 1$ 
2742 020160 013700 020316’ MOV MENRES ,RO 3GET THE OPERATOR'S REPLY 
2743 020164 020001 CMP RO,R1L sCOMPARE TO MAXIMUM ALLOWED 
2744 020166 101411 BLOS 5$ ;BRANCH IF OK 
2745 020170 PRINTF @MENERR sDISPLAY ERROR MESSAGE 
020170 012746 020214’ MOV OMENERR , -( SP) 
020174 012746 000001 MOV #1, -C 
010600 MOV 
020202 104417 TRAP CSPNTF 
020204 062706 000004 ADD o4,SP 
2746 020210 000735 8R 1% ;RETRY 
2747 020212 000207 5$%: RTS PC sRETURN TO CALLER 
2748 020214 045 116 045 MENERR: .ASCIZ ‘SNSA #60 Menu Selection Too Large +e’ 
2749 020262 045 116 045 SELASC: .ASCIZ ‘sNsT’ 
$730 020267 105 156 164 MENASC: — ‘Enter Menu Selection: ' 
EV 
Ses | 020316 000000 MENRES: . WORD 0 
Lf -SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 
3° 
2756 : 
eras sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
2759 : INPUT: 
2760 3 
2761 ; NONE . 
2762 : 
2763 sOUTPUT: 
2764 “ ea 
2765 ; CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
one 3 1 MANUAL INTERVENTION IS OK 
Hy 
dey ;SIDE EFFECTS: 
3 
2770 3 A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
2771 ; NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
2772 3 ALLOWED. 
2773 ; 
2774 $- 
2775 
2776 020320 CHKMAN: : 
2777 020320 SAVREG ;SAVE THE REGISTERS 
2778 020324 MANUAL ;SEE IF MANUAL INTERVENTION OK 
020324 104450 TRAP C$MANI 
2779 020326 BCOMPLETE 1$ ;BRANCH IF ALLOWED 
020326 103411 6csS 1$ 
2780 020330 PRINTF @NOMAN ;PRINT THE WARNING MESSAGE 
020330 012746 020354’ MOV @NOMAN, -( SP) 
020334 012746 000001 MOV #1,-C(SP) 
020340 010600 MOV SP ,RO 
020342 104417 TRAP CSPNTF 
020344 062706 000004 ADD #4 ,SP 
2781 020350 000241 CLC ;CLEAR CARRY FOR ERROR 
2782 020352 000207 1$: RTS PC ;RETURN 


2783 


B7 


TSVS - GLOBAL AREAS MACRO M1113 O1-FEB-84 17:02 SEQ 079 
CHKMAN - CHECK MANUAL INTERVENTION | EGALITY 
the 020354 045 116 045 NOMAN: .ASCIZ ‘SNBA #06 Manuel Intervention not Allowec - Test Aborted see’ 
even 
2786 
eres -SBTTL ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
: 
tha + SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 
3 
2791 020450 ENVIRN: MEMORY RO 
020450 104431 TRAP CS$MEM 
2792 020452 010037 003124’ MOV RO, FREE s GET 1ST FREE ADDRESS... 
2793 020456 062737 000002 003124’ ADD @2,FREE 
2794 020464 011037 003126’ MOV (RO), FRESIZ 3...AND WORD COUNT. 
2795 020470 162737 000004 003126’ SUB 64 ,FRESIZ 
2796 020476 013702 002012’ MOV LSUNIT,R2 s GET NUMBER OF UNITS 
2797 020502 162737 000007 003126' 108: SuU8 07 ,FRESIZ s TAKE AWAY 7 WORDS PER UNIT 
2798 020510 005302 DEC Re 
2799 020512 001373 BNE 108 
2800 C20514 013700 003124’ MOV FREE ,RO sGET FIRST FREE ADDRESS 
2801 020520 063700 003126’ ADD FRESIZ,RO sPOINT TO LAST FREE ADDRESS 
2802 020524 162700 000002 Su8B @2,RO sBACKUP 1 WORD 
2803 020530 010037 003130’ MOV RO, FREEHMI sSTORE LAST FREE ADDRESS 
or 020534 000207 403: RTS PC sRETURN 
soos -SBTTL KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
3° 
2808 3 
2809 sROUTINE TO INIT KT-11 
2810 : 
2811 s- 
2812 
2813 020536 KTINIT: 
2814 020536 005037 003132’ CLR KTFLG : INIT >28K MEMORY FLAG 
2815 020542 005037 003134’ CLR K TENABLE s INIT TEST >28K FLAG 
2816 020546 023727 002120' 001577 CMP LSHIME , 01577 s GOT ENOUGH MEMORY (>28K)? 
2817 020554 101453 BLOS 9% s NO. 
2818 020556 023727 002120' 001777 CMP LSHIME ,01777 s GOT ENOUGH MEMORY (>32K)? 
2819 020564 101447 BLOS 93 s NO. 
2820 020566 013700 000004 MOV QERRVEC RO s SAVE OLD ERR VEC PTR, 
2821 020572 012737 020664' 000004 MOV 2% ,BOERRVEC 3s SET ERR VEC PTR. 
2822 020600 005737 177572 TST 8e@SRO 3 GOT KT11? 
2823 020604 000240 NOP 3s (CTRAP IF NO), 
2824 020606 013737 002120' 003132’ MOV LSHIME ,KTFLG s YES. SET KT FLAG. 
2825 020614 042737 000177 00313°> BIC @177,KTFLG 3 
2826 020622 010037 000004 MOV RO, BOERRVEC 3s RESTORE OLD ERR VEC PTR. 
2827 020626 005000 CLR RO s RO = AR DATA, 
2828 020630 012701 172340 MOV OKIPARO,R1 s RL = KI REGS PTR. 
2629 020634 012761 077406 177740 158: MOV 077406,-40(R1) 3; SET DESCRIPTOR REG. 
2830 020642 010021 MOV RO,C(R1)> s SET KIPAR REG. 
2831 020644 062700 000200 ADD #200 ,RO 3 BUMP AR DATA BY "4K", 
2832 020650 020027 002000 CMP RO, 02000 3 AT “I/0"? 
2833 020654 001367 BNE 1% s NO. 
2834 020656 012741 177600 MOV 177600, -(R1) s YES. SET KTPAR7 FOR I/O, 
oo 020662 000410 BR 98 
2837 020664 01271€ 020700' 2s: MOV 06%,(SP) 3 SET UP RETURN 
2838 020670 000002 RTI 3 RTI TO NEXT LOCATION 


LVSri “OBR EL menAPAAMACE Me uP AEEDE Peed? *02 


020672 
020676 


020700 


021004 


021010 
021012 
021014 
021016 


021020 
021022 
021024 


012716 
000002 


000000 


020726' 


000004 


000004 
020672’ 
000001 


000004 


002226' 
100206 
021020’ 
000006 


100010 
021010' 
010472’ 


000004 
170200 


021010' 
021012' 
021016' 
021020' 


C7 


#108,(SP) 
RO, BOERRVEC 


BOERRVEC ,RO 
@3% ,QBOERRVEC 
$8ITO, BOMMRO 


RO, @OERRVEC 
PC 


SEQ 080 


1 SET UP RETURN 
3 RTI TO NEXT LOCATION 


s RESTORE OLD ERR VEC PTR. 
s SAVE OLD ERR VEC PTR. 

s SET ERR VEC PTR. 

sBE SURE UNIBUS MAP IS OFF 


s RESET VECTOR BACK TO ERROR POINTER 


SUBROUTINE TO SET EXTENDED FEATURES SWITCH 


Requires that SOFINIT and WRICHR have been done previous to call. 


CURRENT UNIT NUMBER 
The Extended Features Switch is set. 


EXTFEA 

i$ 
#100206 , CMOPKT 
@WSMBK , CHDPKT +2 
06 , CMDPKT °6 
#100010, WSMBK 
@CMOPKT ,R4 

PC ,WRTCHR 


PL 


PACKET. 
10-«<, -TSV2E7> 


IS SWITCH SET? 

YES,EXIT STAGE RIGHT! (or the next one outa town! ) 
WRT SUB-SYS MEM CMD 

MSG BUF ADOR 

BYTE COUNT 

INVERT THE SWITCH 

SET CMDPKT INTO R4 

dO IT 


RETURN 


81ST WORD IS TSOS COMMAND. 

s2ND WORD IS THE BUFFER LOW ADDRESS. 
s35RD WORD IS THE BUFFER HIGH ADDRESS. 
34TH WORD IS THE BYTE/RECORD/FILE COUNT. 


WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 


38; MOV 
RTL 
6$; MOV 
9$: 
MOV 
MOV 
BIC 
NOP 
108; MOV 
RTs 
3 o 
3 
4 
3 
a 
3 
s INPUTS: 
3 RS 
sOUTPUTS: 
3 
8 
3 - 
INVERT: : 
TST 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
1%: RTS 
3 COMMAND 
.BLKB 
CMOPKT:: O 
t?) 
r¢) 
0 
3 
WSMBK:: O 
r¢) 
c¢] 


;1ST WORD:: SEL O 
32ND WORD:: SEL 2 
33RD WORD:: SEL 4 


LA¥Eri LBA A*EG Hs enDAP*AAlAdPenP AEERS Bnd 7202 


2899 


003136' 
003140' 
003142’ 
170000 

003146' 
002120' 
021222' 
003144' 
002120' 
002120' 
021222' 
002120' 
021222' 
000077 

177774 


003136’ 


005454’ 
000001 


000004 


002120’ 


007777 


005777 


003777 


001577 


003142’ 
003142' 


s INPUTS: 


D7 


SEQ 081 


SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 


sOUTPUTS; 
The NXMFLG is set if we can test. 
The NXMLO and NXMHI addresses are setup. 


MEMCK: ; 


1$: 
2s: 


43%; 


13%: 


14%: 


15$: 


NXMFLG 

NXMLO 

NXMHI 
#170000 ,L SHIME 


144 
T238 


1s 

LSHIME ,07777 

es 

PC .NXMTST 

13% 

T23A 

43 

ere 
4% 

oes 03777 

PC, NXMTST 

13% 

LSHIME ,01577 

14% 

PC ,.NXMTST 


077,NXMHI 
0177774 ,NXMHI 


sSAVE THE REGISTERS 

sCLEAR THE FLAG 

sCLEAR THE TEST ADDRESS LO 

sCLEAR THE TEST ADDRESS HI 

sCHECK FOR MORE THAN 18 BITS INDICATED 
sFROM THE yt oy 

sBR, IF MAP BOX ETC. 

sIS IT A PROCESSOR TYPE B? 


sNO 
s GREATER THAN 128K 


s NO 

sSETUP THE ADDRESS 

3SET THE FLAG AND EXIT 

3IS IT A PROCESSOR TYPE A? 


sNO 

sGREATER THAN 96K 

3YES,23A/238 WITH 128K MEMORY 
sGREATER THAN 64K BUT LESS THAN 92K? 
3SETUP THE ADDRESS 

3SET THE FLAG AND EXIT 

sGREATER THAN 24K BUT LESS THAN 64K? 
3NO, TELL THEM AND EXIT WITH FLAG CLEAR 
sSETUP THE ADDRESS 

sFOOL THE 11702 € 11/703 

sANY MORE THAN 18 BITS SET? 

3B8R, IF MORE THAN 18 BITS SET 

3SET THE FLAG 

3EXIT 

;NOP FOR PRINTOUT 

sTELL THEM € EXIT eeeNO PRINTescsse 


sRETURN 


SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
sOUTPUTS : NXMLO,NXMHI 


sSETUP WITH NXM ADDRESS 


Fj 
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KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
2951 "'- 
2952 ; 
2953 021222 013701 002120' NXMTST: MOV LSHIME ,R1 sGET TOP OF MEMORY 
2954 021226 062701 000200 ADD #200 ,R1 sMAKE IT I/0 BLOCK OR OTHER NXM 
2955 021232 042701 000177 BIC #177,R1 
2956 021236 010102 MOV R1,R2 sRESAVE RESULTS 
2957 000006 .REPT 6 
2958 ASL R1 sPUT IN PLACE FOR XFER 
2959 -ENOR 
2960 021254 010137 003140’ MOV R1,.NXMLO sSAVE TEST ADDRESS LOW 
2961 000012 .REPT 10. 
2962 ASR Re sPUT IN PLACE FOR XFER 
2963 .ENOR 
2964 021304 042702 177700 BIC #177700,R2 3D00N'T WANT ILA! 
2965 021310 010237 003142’ MOV R2,NXMHI sSAVE TEST ADORESS HIGH 
2966 021314 000207 RTS PC sRETURN 
2967 
2968 
2969 
2970 


2971 021316 ENOMOD 


F7 
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KTINIT 


UP K 


021316 
021316 


021316 


021446 


177777 


103052 


MEMORY MANAGEMENT 


177777) «#177777 


002226' 
003136' 
006172’ 002200' 
003154' 
003134’ 
002302' 


000036 


002202’ 002012’ 
003112° 
002202' 
003176’ 
040000 003176’ 


000035 


-TITLE TSV4 - MISCELLANEOUS SECTIONS 


BGNMOD TSV4 
TSV4:: 


-SBTTL PROTECTION TABLE 
BGNPROT 


L$PROT:: 


-WORD  -1, -1, -1, -1 sNO DEVICE PROTECTION REQUIRED. 
ENOPROT 
-SBTTI INITIALIZE SECTION 


gee 
sTHE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
sAT THE BEGINNING OF EACH PASS. 


3 

sIF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
IF “CONTINUE”, NOTHING IS REQUIRED. 

a 

g°-e 


3° 
s INSERT TEMPORARY JUMP TO ODT 
ge 


BGNINIT 
LSINIT:: 
40$: CLR EXTFEA 
CLR NXMFLG 
MOV EPRT1,EPRTSW ;SET UP PRIMARY MESSAGE FOR REPLACEMENT 
CLR SIFLAG sCLEAR “SOFT INIT” FLAG 
CLR K TENABLE sCLEAR TEST ABOVE 28K FLAG 
CLR RAMSIZ ;CLEAR RAM SIZE FOR RAMERR ROUTINE 


READEF #€F .CONTINUE 
MOV @EF .CONTINUE ,RO 
TRAP CSREFG 


BNCOMPLETE 1% 

BCC i$ 

CMP UNITN,LSUNIT sUNIT IN RANGE? 
BHIS 43 :BR IF NO. 

TST DUFLG sOROPPED UNIT? 
BMI NXTU 3BR IF YES 

MOV UNITN,R1 

ASL R1 

TST ERTABL(R1) 

BEQ SETU 

ad esrT14, ERTABL(R1) sDROPPED? 

EXIT INIT 300 NOTHING IF “CONTINUE”. 


18: READEF €F .NEW 


TRAP CSREFG 

BNCOMPLETE NXTU ;TAKE NEXT UNIT IF NOT NEW PASS. 
BCC NXTU 

READEF EF .START 


SEQ 083 


TSV4_- MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


57 
58 


59 


021446 
021452 
021454 
021454 
021456 


021510 
021514 
021514 
021522 


021652 
021652 


012700 
104447 


103404 


012700 
104447 


005037 


005037 


023727 
101752 
005737 
001747 


104421 


032700 
001343 


104424 


000040 


000037 


002214' 
002222" 
003144’ 
003146' 


003400' 
177777 

020450' 
020536‘ 
003176’ 
003376' 


002204' 
021624' 


177777 
002220' 


002202' 
002202’ 
177777 


002012' 
002220' 


000100 


G/ 
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002204' 


002202' 


2s: 


30$: 


318: 


4$: 
NEWPAS: 


NXTU: 


11$: 


PASRPT; 


MOV EF .START,RO 
TRAP CSREFG 
BCOMPLETE 28 
Bcs es 
READEF @€F .RESTART 
MOV EF .RESTART,RO 
TRAP CSREFG 
BNCOMPLETE 318 

BCC 318 
BRESET 

TRAP CSRESET 
CLR TSTCNT 

CLR FATFLG 

CLR T23A 

CLR T238 
MOV #340, -(SP) 
MOV #203, -(SP) 
JMP 0.00T 

CLR SKIPT 

MOV @-1,QVP 
JSR PC .ENVIRN 
JSR PC, ,KTINIT 
MOV #ERTABL ,RO 
CLR CRO)> 

CMP RO, OERTABE 
BLO 30 
BR 4% 

CLR QvPp 

JMP PASRPT 

CLR VCNT 
BREAK 

TRAP CsBRK 

INC UNITN 

CMP UNITN,LSUNIT 
BLO SETU 

MOV @-1,0UFLG 
BR 11% 

DOCLN 

TRAP CSOCLN 
NOP 
CMP ‘LSUNIT,@1 
BLOS NEWPAS 

TST DEVCNT 
BEQ NEWPAS 
RFLAGS RO 

TRAP CSRFLA 
BIT @ISR,RO 
BNE NEWPAS 
DORPT 

TRAP CsORPT 


31ST PASS, BUS-INIT. 
;BUS RESET. 


sNUMBER OF TESTS RUN IN PASS 
sCLEAR FATAL ERROR COUNT 

sCLEAR PROCSSOR TYPE A FLAG 
sCLEAR PROCSSOR TYPE B FLAG 


sRETURN TO —— 


+;@@ENTER THE DEBUGGE 
sCLEAR THE SUBTEST “SKIPPER” 


-QUICK VERIFY. 
H St ENVIRONMENT . 
sINITIALIZE KT MEMORY MANAGEMENT 


sCLEAR THE ERROR TABLE 


:GO REPORT THE STATUS 


sINIT UNIT NUMBER 
sCLEAR COUNT OF DEVICES RUNNING 


.- AND SET NEXT UNIT NUMBER. 


s;ABORT, NO MORE UNITS. 


sHOW MANY UNITS SELECTED? 
368R IF ONLY 1 

sARE ANY STILL RUNNING? 
368R IF NO 


;SHOULD WE PRINT STATISTICS 
:B8R IF NO 


SEQ 064 


H/ 
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INITIAL TE SECTION 


021706 
021712 
021716 


021722 


021722 


000741 


- 012001 


010137 
012001 


010137 
012721 
013721 


013701 


023727 


012746 


012737 


002212’ 


003176' 
000001 


003114' 
177777 003112' 


108: 


SETU: 


BR NEWPAS 
GPHARD UNITN,RO 
MOV UNITN,RO 
TRAP cs 
BNCOMPLETE NXTU 
Bcc NXTU 

CLR DUFLG 

INC DEVCNT 

MOV CRO)+,R1 
MOV R1,CSRADOR 
MOV CRO)+,R1 
sMOV (RO), R2 
;MOv R2, IPRI 
MOV R1,IVEC 
MOV @INTR, CR1)> 
MOV IPRI, ¢ R1)-+ 
TST QvP 

BEQ S$ 


sGET UNIT N P-TABLE POINTER. 


s6R IF UNIT NOT AVAILABLE. 
sCLEAR “DROPPED” FLAG. 


sGET 1ST REGISTER ADDRESS. 
sADDRESS OF REGISTERS OF UNIT UNDER TEST 


:GET VECTOR ADDRESS. 

sGET INTERRUPT PRIORITY 

sSET INTERRUPT PRIORITY. 

— INTERRUPT VECTOR POINTER... 
. VECTOR. 
-AND PRIORITY. 


31ST PASS ?? 
sNO, SKIP THE PASS 1 STUFF. 


;1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
3s THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


108: 


2s: 


UNITN,R1 
R1 


@BIT1S,ERTABL(R1) 
EXTA 


LSUNIT,@1 
10% 

RO 

CSRFLA 
@PNT RO 


10$ 

OPUNIT ,UNITN 
UNITN, -(SP) 
OPUNIT, -C SP) 
@2,-(SP) 

sP 


R1,NODEV 
-1,0UFLG 


sSAY DEVICE RUNNING 

sCLEAR ERROR EXTENSION FLAG. 
mere MULTIPLE UNITS? 
; 

sYES -- GET OPERATOR FLAGS. 


:SHOULD WE PRINT UNIT 6? 
1BR IF NOT 
sPRINT THE UNIT @ 


sADDRESS OF FIRST REGISTER 
sSTART OF REGISTERS 

sADDRESS OF TSSR REGISTER 

sTEST BOTH CONTROLLER REGISTERS... 
s...AND BR IF ALL OK, 

sFLAG DEVICE AS NON-EXISTENT 

sOROP THIS UNIT. 


: 
sFINALLY, SET CPU PRIORITY ANC WE'RE DONE. 


SEQ 085 


17 
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INITIALIZE SECTION 
150 3 
151 022044 5$: SETPRI oPRIOO sENABLE INTERRUPTS. 
022044 012700 000000 MOV @PRIOO,RO 
022050 104441 TRAP CSSPRI 
152 022052 ENDINIT 
022052 L10030: 
— 022052 104411 TRAP CSINIT 
154 022054 045 116 045 PUNIT: .ASCIZ /sSNSNSAseses TESTING UNIT SD28A seees/ 
135 .EVEN 
3? .SBTTL ADD AND DROP UNITS SECTIONS 
159 zee 
160 ; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
161 ; TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME, 
ues : OR (8) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED 
g-2 
164 022122 BGNAU 
022122 LSAU:: 
165 022122 010001 MOV RO,R1 ; GET UNIT TO BE ADDED (RO) 
166 022124 006301 ASL R1 3; MAKE IT A WORD INDEX 
167 022126 052761 100000 003176’ BIS #10000u,ERTABL(R1) ; SET THE “ACTIVE” BIT 
168 022134 042761 040000 003176’ BIC #40000 ,ERTABL(R1 ) ; CLEAR THE “DROPPED” BIT 
169 022142 PRINTF 1$,R0 
022142 010046 MOV RO, -(SP) 
022144 012746 022170’ MOV #18,-(SP) 
022150 012746 000002 MOV @2,-(SP) 
022154 010600 MOV SP RO 
022156 104417 TRAP CSPNTF e 
022160 062706 000006 ADD 6 ,SP 
170 022164 EXIT AU 
022164 000167 -WORD J$JMP 
022166 000026 -WORD L10031-2-. 
171 022170 045 116 045 18: -ASCIZ /SNSA UNIT SDSA ADDED/ 
172 .EVEN 
173 
174 022216 ENDAU : UNUSED. 
022216 L10031: 
a 022216 104452 TRAP CsAU 
3¢ 
176 ; THE DROP -UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
i. : TO BE REMOVED FROM THE TEST LIST. 
: 
179 ; SUPVSR DOES THE “DROPPING”. THIS IS yUST TO TELL THE MAN. 
180 s “OROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
181 3 COMMAND, OTHERWISE REMAIN INACTIVE. Tr “DISPLAY” COMMAND 
182 ; WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
183 3; WHICH ARE STILL ACTIVE. 
see ; UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. m 
186 022220 BGNOU 7 ie 
022220 L$OU:: 
187 022220 012737 177777 003112' MOV @-1,0UFLG 
188 022226 010001 MOV RO,R1 
189 022230 006301 ASL 


R1 
190 022232 05276) 140000 003176’ BIS #140000 ,ERTABL(R1) + SAY DROPPED 


Ht - MISCELLANEOUS SECTIONS MACRO M1113 


AND DROP UNITS SECTIONS 


191 
192 


022324 
022324 
022324 


022406 
022406 
022406 
022412 
022416 


022420 


013705 
012703 
004737 
103420 


012727 
000000 
013727 
000000 


013705 
005737 
100405 


012765 


000240 000240 


022274' 
000002 
000006 


116 045 


002116’ 
177772 
177756 


017014' 


002206 ' 
003112° 


000000 000002 


240,240, 
NTF 


L10032: 
TRAP 


J7 


O1-FEB-84 17:02 


240 


L10032-2- 


s 227272772277 


7SNGA UNIT SDA DROPPED, 


Cs0u 


see 
s AUTO-DROP CODE SECTION. 


hoe 
BGNAUTO 
LSAUTO:: 


10$: JSR 


ENDAUTO 
L10033: 
TRAP 


CSRADOR RS 
#360. ,R3 
PC ,WAITF 
20% 


250. 
 eaietittadals 


LSOLY,(CPC)>+ 
t+) 


10% 
PC ..CKDROP 


CsAuTO 


sPOINT TO DEVICE REGISTER 


sENOUGH TIME FOr 2400' REEL TO REWIND 


;WAIT FOR SSR TO SET 
;LEAVE WHEN SSR 1S SET 
;WAIT FOR .25 SECONDS 


sBUMP COUNTER DOWN 
sKEEP GOING 
3TRY AND DROP UNIT 


; UNUSED. 


-SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


x) 

s THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
; EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 

; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 


aoe 
BGNCLN 
LSCLEAN: : 
MOV 
TST 
BMI 


MOV 


CSRADOR ,RS 


#0, TSSR(RS) 


sPOINT TO DEVICE REGISTER 
s"DROPPED” FLAG IS SET ON... 
;..-AND GROSS CONTROLLER FAULT... 
3...DON'T TRY TO xXCT CLEANUP CODE. 


300 SOFT INIT 


SEQ 087 


KK 7 
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CLEAN-UP AND 


255 


004737 


104412 


012746 
012746 


016060' 


022676' 


003176’ 


040000 
170000 


022733' 
000003 


000010 
160000 


18%: 
2s: 


L10034 


zee 


JSR 


ENDCLN 
” TRAP 


PC ,WALTF 


CSCLEAN 


s THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


LSRPT:: 


18%: 


2s: 


3%: 


BGNRPT 
— 


@DEVSUM 


4% 
#BIT14,R2 
2s 


@*C7777,R2 
@DEVONL ,R3,R2 
SP) 


@2,-(SP) 


GET START OF ERROR TABLE. 
CLEAR UNIT 


NUMBER 
GET ERROR TABLE ENTRY € TEST IT. 


ZERO IF UNIT NOT RUN 


WAS UNIT DROPPED? 

BR IF YES 

GET ERROR COUNT FIELD 
PRINT 


WAS UNIT NON-EXISTENT? 
BR IF NO 


WAS UNIT NOT READY AT STARTUP? 
BR IF NO. 


SEQ 088 


TSV4 - MISCELLANEOUS SECTIONS 
CLEAN-UP AND REPORT CODING SECTIONS 


023216 


042702 170000 


012746 023146’ 
012746 000005 


010600 

104416 

062706 000010 

062704 000002 

005203 

020427 003376’ 

103701 

012604 

012603 

012602 

104425 
045 116 
045 101 
045 101 
045 101 
045 101 


MACRO M1115 


308%: 


4$: 


a, 


01-FEB-84 17:02 


@*C7777,R2 


R3 

~ meena 
(SP)+,R4 
(SP)+,R3 


(SP)+,R2 
s UNUSED. 


CSRPT 


/SNSADEVICE STATUS SUMMAF .SN/ 

/$A UNIT SD3SA ONLINE, ERRORS = SOSN/ 

/$A UNIT SD38A DROPPED, NON-EXISTENT REGISTERSN/ 
/$A UNIT S038A DROPPED, NOT READY AT STARTUPSN/ 
/%A UNIT SD38A DROPPED, ERRORS = sDsN/ 


SEQ 089 


023216 
023216 


023272 
023274 


023276 


023332 


PORT GopInc secTions Ct -FEB-64 17:02 


012737 
004737 


012703 
012704 
012764 


004737 
103405 
010001 


104455 
000144 
003646' 
011644' 


005037 
010465 
004737 


103407 
010001 


023662' 
016322’ 
000012 

024136' 
002764' 
023620' 
000010 


015604° 


002222’ 
000000 
016146' 


002216' 


TSVS:: 


oo es oF Ge Gs Ge Gs Ge Ge Ge Gs Ge Ge Ge Ge oF Ge oF 
* 


T13LO0P:; 


5$: 


10 


. TITLE 


. SBTTL 


M7 


SEQ 090 
TSVS - HARDWARE TESTS 


TsvS 


TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 


TEST DESCRIPTION: 


This test verifies that ea Hardware Initialize command 
invoked after a Write Characteristics command sets up 
the Command, Message and Characteristic image blocks 
in the controller rem correctly. 


TEST STEPS: 


REPEA1 FOR LOOPCNT 
BEGIN 


CLR 


MO R 
NEXT .ERRNO 


Do WRITE CHARACTERISTICS command. 

If the NBA bit in the TSSR register is NOT=C then Print Error. 
Write to TSSR register to soft initialize the controller 

If controller RAM 310-377 NOT=0 then Print Error 


Tl:: 

@TST13I0,RO sASCII MESSAGE TO IDENTIFY TEST 
PC, TSTSETUP 300 INITIAL TEST SETUP 
#10. ,LOOPCNT sPERFORM 10 ITERATIONS 
PC, TI3REST ;SET PACKET TO START-UP VALUES 
@TSTBLK+10. ,R3 sSTART OF TEST DATA 
@TL3PACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 
#8. ,PKBCNT(R4) sSTART WITH MINIMUM ALLOWABLE VALUE 
PC,SOF INIT ;sWRITE TO TSSR TO SOFT INITIALIZE 
10$ 3;B8R IF SOFT INIT OKAY 
RO,R1 ;SAVE CONTENTS OF TSSR 
ERRNO, SF IERR, SF IMSG iDEVICE FATAL DURING INIT 

TRAP CSEROF 

. WORD 100 


-WORD SFIERR 
-WORD SFIMSG 


+4 WRITE eee NENTS IS command. 


FATFL sCLEAR FATAL ERROR FLAG 
R4, TSDBCRS) sSET THE PACKET ADORESS TO EXECUTE 
PC. CHKTSSR sWAIT FOR SSR TO SET 
ROR 12$ s@@OFORCE ERROR IF FORCER=1 
: ;BR IF CARRY SET (GOOD RETURN) 


0,R1 sSAVE CONTENTS OF TSSR 


N7 


TSVS - HARDWARE TESTS MACRO M1113 O1-FEB-84 17:02 SEQ 091 
TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 

75 023332 12$: ERRDF ERRNO,T13SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
023332 104455 TRAP CSERDF 
023334 000145 «WORD 101 
023336 024047’ «WORD T13SSR 
023340 011656’ ° PKTSSR 

76 023342 005237 002222’ INC FATFLG sSET FATAL ERROR FLAG 

77 023346 15$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
023346 104406 TRAP CsCLPi 

78 023350 016501 000002 MOV TSSRCRS),R1 3GET THE CONTENTS OF TSSR 

79 023354 012702 000200 MOV @SSR ,R2 sEXPECTED CONTENTS OF TSSR 

80 023360 032701 000100 BIT OOFL ,R1 sIS OFF-LINE BIT SET ? 

81 023364 001402 BEQ 25% sBRANCH IF NOT OFF-LINE 

os 023366 052702 0001006 BIS *OFL ,R2 sSET OFF-LINE IN EXPECTED DATA 

84 If the NBA bit in the TSSR register is NOT=0 then Print Error. 

85 023372 25%: 

86 023372 FORCERROR 27% 3890 

87 023406 020201 CMP R2,R1 ;D0ES EXPECTED MATCH RECEIVED ? 

88 023410 001404 BEQ 30$ sOKAY IF MATCH 

89 023412 NEXT .ERRNO 

90 023412 27s: ERRHRD ERRNO, T13NBA,PKTSSR ;NBA NOT ZERO 
023412 104456 TRAP CSERHRD 
023414 000146 102 
023416 023774’ WORD T13NBA 
023420 011656’ WORD PKTSSR 

91 023422 308: CKLOOP ;LOOP ON ERROR ? 

92 023422 104406 TRAP CSCLP1 

93 sWrite to TSSR register to soft initialize the controller 

94 023424 408: 

95 023424 004737 015604’ JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 

96 023430 FORCERROR 42$ ; 

97 023444 103405 BcSs 50s ;BR IF SOFT INIT OKAY 

98 023446 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

99 023450 NEXT. ERRNO 

100 023450 42s: ERROF ERRNO,SFIERR,SFIMSG ;DEVICE FATAL DURING INIT 
023450 104455 TRAP CSEROF 
023452 000147 WORD 103 
023454 003646’ WORD SFIERR 

ses 023456 011644’ WORD SFIMSG 

102 Tid controller RAM 310-377 NOT=0 then Print Error 

103 023460 012704 000310 50$ MOV @310,R4 ;START WITH LOC 310 

104 023464 005002 CLR R2 sMEMORY EXPECTED SHOULD BE 000000 

105 023466 105065 000000 CLRB TSDBCRS ) ;SET MAINTENANCE MODE 

106 023472 004737 016146’ JSR PC, CHKTSSR swAIT FOR SSR READY 

107 023476 010465 000000 60$: MOV R4,TSOBCRS) ;SELECT RAM ADDRESS 

108 023502 004737 016146’ JSR PC,CHKTSSR sWAIT FOR SSR READY 

109 023506 116501 000000 MOVB TSBACRS),R1 sREAD LOC CONTENTS 

110 023512 FORCERROR 62$,.NOTSSR 3880 

111 023522 120102 CMPB R1,R2 ;CHECK MEMORY FOR 

112 023524 001406 BEG 70$ ;BRANCH IF DATA OKAY 

113 023526 NEXT .ERRNO 

114 023526 62%: ERROF ERRNO, T13MEM,RAMEXP sMEMORY NOT ZERO AFTER a 
023526 104455 TRAP CSEROF 
023530 000150 -WORD 104 


023532 023735’ -WORD T13MEM 


TEST 


TSVS - MAROWARE TESTS 
023534 015340’ 
115 023536 005237 
116 023542 
023542 104406 
117 023544 
023544 104410 
_ 023546 000436 
119 023550 005204 
120 023552 920427 
121 023556 001347 
122 
123 
124 023560 005737 
125 023564 001402 
126 023566 004737 
127 023572 004737 
128 023576 103002 
129 023600 000157 
130 023604 
131 023604 
023604 104432 
023606 000376 
132 
133 
134 
135 
136 
138 023610 
140 023620 
141 023620 100004 
142 023622 023630’ 
143 023624 
144 023626 000010 
145 
146 0236 
147 023630 023642’ 
148 023632 
149 023634 000016 
fae 023636 000000 
152 023642 
153 
154 
155 
156 023662 111 
157 023735 111 
158 
159 023774 127 
160 024047 103 
161 
162 
163 
164 
165 
166 


MACRO M1113 O1-FEB-84 17:02 
1: INITIALIZE AFTER WRITE CHARACTERISTICS 


002222' 


000400 


002222' 


017014° 
016270' 


023234" 


122 
157 


151 
143 


111 
156 


708: 


82%; INC 


1608; JSR 


1658; 


B8 


FATFLG 


TsT 


R4 
R4, 0400 
60% 


FATFLG 


te 
sLOCAL STORAGE FOR THIS TEST 


. BLK 
TLSPACKET: 


1 5558 | 


TLISDATA: 


T136FR: .BLKW 


10-<, -TSV2E7> 


100004 
TLSOATA 


8. 
sLOCAL TEXT MESSAGES FOR TEST 


TST13I0: 
TISMEM: .ASCIZ 


EVEN 
TI3NBA: 


[ASCIZ 
T13SSR: .ASCIZ 


-ASCIZ 


SEQ 092 
-WORD RAMEXP 
sSET THE FATAL ERROR FLAG 
TRAP CSCLP1 
sEXIT ON FATAL ERROR 
TRAP CSESCAPE 
«WORD L10036-. 


sLOOK AT NEXT RAM LOC. 
sAT TOP OF RAM ADDRESS SPACE 
sBRANCH TILL ALL MEMORY TESTED 


sANY FATAL ERRORS ? 

sB8RANCH IF NOT 

sTRY TO DROP THE UNIT 

sDONE ALL ITERATIONS? 

36R IF YES 

sLOOP UNTIL ITERATION COUNT DONE 


TRAP 
. WORD 


CSsExItT 
L10036-. 


sCOMMAND PACKET FOR TEST 

sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTM OF MESSAGE BUFFER 


sMESSAGE BUFFER 


‘Initialization After WRITE CHARACTERISTICS’ 


‘Incorrect RAM Date After Init’ 


‘WRITE CHARACTERISTICS Command Not Accepted’ 
‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 


3 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DFFAULT) VALUES 


C8 


- HARI T A . P 
tee? 1: ident 623 Re re GRP TP eARaP teh Ee PAs! 729? SEQ 093 

168 

169 .EVEN 

170 

171 024136 TL3REST: 

172 024136 SAVREG sSAVE THE REGISTERS 

173 024142 012701 023620' MOV @TLI3PACKET,R1 sSTART OF THE PACKET 

174 C24146 012721 100004 MOV #100004 ,(R1)> sWRITE CHARACTERISTICS WITH ACK 

175 024152 012721 023630' MOV @TISDATA,(R1)+ ADDRESS OF CHAR DATA BLOCK 

176 024156 1 CLR CR1)> sEXTENDED ADDRESS 

177 024160 012721 000010 MOV 8.,C(R1)> sSIZE OF DATA BLOCK IN BYTES 

178 024164 012721 023642 MOV @OTISBFR,CR1)> sADORESS OF MESSAGE BUFFER 

179 924170 005021 CLR CR1)- 

180 024172 012721 000016 MOV 14. ,CR1)+ sLENGTH OF MESSAGE BUFFER 

181 024176 005021 CLR CR1)> 

182 024200 005011 CLR (R11) 

183 024202 000207 RTS PC sRE TURN 

184 024204 ENOTST 
024204 L10036: 

9 024204 10~<01 TRAP CSETST 

1 

1 -SBTTL TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 

1 3° 

188 : 

189 sTHIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A 

190 sBSELO SELECT CODE OF O (NO-OP) EXECUTES CORRECTLY. IT ALSO 

191 sVERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO 

192 sMODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 

io sCOMMAND DECODING AND HANOLING SEQUENCES. 

o 

195 - 

196 024206 BGNTST 
024206 T2:: 

201 024206 012700 026021' MOV @TST14I0,RO sASCII MESSAGE TO IDENTIFY TEST 

202 024212 004737 016322’ JSR PC, TSTSETUP 300 INITIAL TEST SETUP 

203 C24216 012737 000024 002216' MOV 20. ,LOOPCNT sPERFORM 20 ITERATIONS 

204 024224 T14LO0P: 

205 024224 BGNSUB s//////////7// BEGIN SUBTEST 4/4/44 /////// 
024224 T2.1: 
024224 104402 TRAP CsBSUB 

206 024226 004737 026066' JSR PC, TISREST sSET PACKET TO INITIAL VALUES 

207 024232 004737 026124' JSR PC, TI4RST :SET PACKET TO INITIAL VALUES 

208 024236 SETPRI #@PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
024236 01270C 000000 MOV @PRIOO,RO 
024242 104441 TRAP CsSPRI 

209 024244 S$: 

210 024244 BGNSEG 4>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
024244 104404 TRAP CSBSEG 

211 024246 004737 015604' JSR PC,SOF INIT 300 SOFT INIT OF CONTROLLER 

212 024252 103405 Bcs 10$ s6R IF SOFT INIT =. OK 

216 024254 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

217 024256 E° POF ERRNO, SF IERR, SF IMSG sDEVICE FATAL ERROR OURING INIT 
024256 104455 TRAP CSEROF 
024260 000311 » WORD 201 
024262 003646’ . WORD SF IERR 
024264 011644’ WORD SF IMSG 

218 024266 10%; 

219 024266 012704 025360' MOV @T14PK2,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


TSvS 


220 
221 
225 
226 


266 


- HARDWARE TEST 
TEST 2: BASIC WRITE 


024272 
024276 


004737 
103405 
010001 


104456 
000312 
005052’ 
011644’ 


005037 
005037 
012704 


015320' 


104405 


010472' 
118: 
002222' 
002224' 
024740' 
000000 
016146' 
002222’ 
15$: 
002224’ 
000002 223: 
000200 
000100 
000100 
25%: 
; 308: 
010724' 35%: 


UBsYSTEN HEAdAY QdsmfRGe* 17102 


ENOSEG 


D8 


PC,WRICHR 
11% 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


FATFLG 
INTRECV 
OTL4PACKET ,R4 
R4, TSOBCRS) 
PC, CHKTSSR 
15% 


RO,R1 
ERRNO, T14SSR,PKTSSR 


FATFLG 
SEG 


INTRECV 
22s 
ERRNO, TL4NINT .PKTSSR 


TSSRC(RS),R1 


ERRNO, T14NBA,PKTSSR 


PC,.CKRAM 
59% 
ERRNO, PKTRAM,RAMERR 


s ISSUE WRITE CHARACTERISTICS 

sBR, IF COMMAND ISSUED OK 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
TRAP 
. WORD 
~ WORD 
. WORD 


sCLEAR FATAL ERROR FLAG 
sCLEAR INTERRUPT RECEIVED FLAG 


SEQ 094 


sSET UP NEW WRT. SUBSYS MEM. COMMAND 


sSET THE PACKET — 

sWATT FOR SSR TO SET 

s68R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


- WORD 
. WORD 
- WORD 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


TRAP 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP 


;0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 


sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF-LINE 

sSET OFF-LINE IN EXPECTED DATA 


sD0ES EXPECTED MATCH RECEIVED ? 


sOKAY IF MATCH 


sNBA NOT ZERO 
TRAP 
. WORD 
WORD 
«WORD 

sCHECK RAM TO MEMORY 

sRAM OK GO ON 

sTHEY DON'T MATCH 
TRAP 
. WORD 
. WORD 
. WORD 


CSEROF 
203 

T14SSR 
PKTSSR 
CsCLP1 


CSESCAPE 
10000$ -. 


CSERHRD 


204 
TL4NINT 
PKTSSR 


CSERHRD 


CSERHRD 
206 


PK TRAM 
RAMERR 


gecececeececece END SEGMENT C6 OOOO KK KE 
10000 


$;: . 
TRAP 


CSESEG 
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267 

268 

269 024460 

104403 
005737 


001402 
004737 


002222" 
017014' 


285 024474 
024474 
024474 


024476 
024476 


010472’ 


002224' 
024740' 
007000 


000000 
016060’ 


E8 


1-FEB-84 17:02 
OMMAND 
598; ENDSUB 
TST FATFLG 
BEQ 608% 
JSR PC,CKDROP 
608: 


3 
sTEST 2, SUBTEST 2 


SEQ 095 


ENNNNANNNANNANSN END SUBTEST NANNANANANANN 
L10040: 
TRAP CsESuB 


sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO DROP THE UNIT 


° 
sCHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 
sWRITE SUBSYSTEM MEMORY COMMAND TO BE REJECTED 


BGNSUB 


SETPRI @PRIOO 


5%: MOV @T14PK2,R4 

JSR PC, TI4REST 

JSR PC, T1I4RST 

BGNSEG 

JSR PC ,.SOF INIT 

6csS 10% 

MOV RO,R1 

ERRNF ERRNO, SFIERR, SF IMSG 
10$: 

JSR PC,WRTICHR 

bcs 118 

MOV RO,R1 

ERRHRD ERRNO,WRTMSG, SF IMSG 
11%: 

CLR INTRECV 

MOV @T1LI4PACKET ,R4 

BIS #007000 ,(R4) 

MOV R4, TSOBC(RS) 

JSR PC ,WAITF 

bcs 15% 


3//////////// BEGIN SUBTEST ///S///////7/ 
T : 
TRAP CsB8SuUB 


sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,.RO 


TRAP 
3GET THE ADDRESS OF 
sRESTORE PACKET TO STARTING VALUES 
sRESTORE PACKET TO STARTING VALUES 
3>>>>>>>>>>>> BEGIN SEGMENT >>>»>>>>>>>> 


TRAP C$BSEG 

300 SOFT INIT OF CONTROLLER 

3BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
-WORD 207 
-WORD SFIERR 
-WORD SFIMSG 

sISSUE WRITE CHARACTERISTICS 

sBR, IF COMMAND ISSUED OK 

sSAVE CONTENTS OF TSSR 

sWRITE SUBSYSTEM MEMORY FAILED 
TRAP CSERHRD 
-WORD 208 
-WORD WRTMSG 
-WORD SFIMSG 


sCLEAR INTERRUPT RECEIVED FLAG 
sSET-UP WITH WRT SUBSYS MEM PACKET 
sNON-ZERO COMMAND MODE BITS 

sSET THE PACKET ADORESS 

sWAIT FOR SSR TO SET 

sB8R IF CARRY SET (GOOD RETURN) 


TSVS - HARDWARE TESTS MACRO M11 -FEB-84 17:02 
TEST 2: BASIC WRITE SUBSYSTEM MENOR y Cesena 


315 
319 


024610 
024612 
024612 


024722 


024724 
024724 
024724 


024726 
024726 
024730 


024732 
024740 
024740 


100206 


002224' 


000002 
100206 
000100 


000100 


010724' 


MOV 
ERROF 


15$: 


228: MOV 


258: CMP 


308: 
35%: JSR 


59$: ENOSUB 


EXIT 


.BLKB 
TI4PACKET: 
. WORD 


F8 


RO,R1 
ERRNO, T14SSR,PKTSSR 


SEG 


INTRECV 
223 
ERRNO, TI4NINT,PKTSSR 


TSSRCRS),R1 
@SC!SSR! TSREJ,R2] 
@OFL .R1 


308 
ERRNO, T142REJ,PKTSSR 


PC ,.CKRAM 
59% 
ERRNO, PK TRAM,RAMERR 


TST 


3 
sLOCAL STORAGE FOR THIS TEST 


10-<, -TSV2E7> 
100206 


SEQ 096 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 209 
. WORD T14SSR 
.WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
;BY-PASS CHECKS IF FATAL ERROR 
TRAP CSESCAPE 
” 10000$-. 
sD0ID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
TRAP CSERHRD 
«WORD 210 
-WORD T14NINT 
. WORD PKTSSR 
3;GET THE CONTENTS OF TSSR 
;EXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
sDOES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 
sCOMMAND NOT REJECTED 
CSERHRD 
«WORD 211 
- WORD T142REJ 
-WORD PKTSSR 
;CHECK RAM TO MEMORY 
;RAM OK GO ON 
; THEY DON’T MATCH 
TRAP CSERHRD 
-WORD 212 
. WORD PKTRAM 
e RAMERR 
3<eeeeceececceee END SEGMENT <ceeeeeeececc 
10000$: 

TRAP CSESEG 
s\ANNANANANNNN END SUBTEST NANNANNANANNN 
L10041: 

TRAP CsESUB 
sALL DONE THIS TEST 

TRAP CSExIT 

-WORD 1L10037-. 


s;COMMAND PACKET FOR TEST 
sWRITE SUBSYSTEM MEM. COMMAND, WITH IE, ACK 


TSVS - HARDWARE 
TEST 2: BASIC WRITE SUBSYSTEM MEMORY 


361 


024742 


362 024744 


026122 


TESTS 


024750' 
000000 
000006 


000 
000 


i 


012701 


MACRO M1113 g 


024740' 
100206 
024750' 


000006 


G8 


-FEB-84 17:02 
ND 
«WORD TI14DATA 
«WORD O 
-WORD 6 
TI4DATA: 
T148S0O: .BYTE 0O 
T148S1: .BYTE 0O 
T14B8S2: .WwORD 0 
-WORKD O 
TI4BFR: .BLKW 128. 
-BLKB 10-<.-TSV2E7> 
T14PK2: 
-WORD 100204 
-WORD T14DTA 
-WORD O 
-WORD 8. 
T140TA: 
-WORD T14BFR 
-WORD 0O 
-WORD 256. 
-WORD 0,0 


3° 
sLOCAL TEXT MESSAGES FOR TEST 
a= 


TI4NBA: .ASCIZ 
T142REJ ASCIZ 
pte at * aSciz 


T14TSBA: 
TST14I0: 
.EVE 


ASCIZ 
-ASCIZ 


3¢ 


‘Incorrect T 


SEQ 097 


sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sBSELO BYTE 


sMESSAGE BUFFER 


sCOMMAND PACKET FOR TEST 
sWRITE CHARA. MEM. CMND., 
sADDRESS OF SELECT DATA BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sSELECT DATA BLOCK 

sADDRESS OF MESSAGE BUFFER 


;LENGTH OF MESSAGE BUFFER 


"WRITE SUBSYSTEM MEMORY Command Not Accepted’ 
‘WRITE SUBSYSTEM MEMORY Not Rejected With Non-Zero Mode Field’ 
‘Contents of TSSR Incorrect After WRIT 
TI4NINT ASCIZ ‘Expected Epteorvet Not Received On WRITE SUBSYSTEM MEMORY’ 
A Address After WRITE SUBSYSTEM MEMORY’ 

‘Basic WRITE SUBSYSTEM MEMORY Command’ 


SUBSYSTEM MEMORY’ 


3 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


sWRITE SUBSYSTEM MEMORY COMMAND 
; 
g= 


TI4REST: 
SAVREG 
MOV @TL4PACKET,R1 
MOV #100206, (R1)>+ 
MOV @TL4DATA,CR1)>+ 
CLR (R1)> 
MOV 06. eC(R1L)> 
CLR (R1)> 
CLR C(R1)> 
CLR (R1) 
RTS PC 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, IE 
ADDRESS OF DATA BLOCK 


ADDRESS 
sSIZE OF DATA BLOCK IN BYTES 
;CLEAR BSELO AND BSEL1 
sCLEAR SEL2 
;CLEAR DATA AREA 
+RE TURN 


WITH IE, ACK 


TSvS 


Te 


vs - 
ST 2: 


HARDWARE 
BASIC wRI 


012701 


024756' 


TRa"S.estBFER EAB, SbirhRGO 17202 


TI4RST: 


H8 


@T14PK2,R1 
@T14D0TA,CR1)+ 
(R1) 


+ 
08.,(R1)+ 
@T14BFR,CR1)> 
CR1)>+ 
0256. .,(R1)+ 
CR1 


* 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 
sWRITE CHARA. WITH ACK, 


SEQ 098 


Ie 
sADORESS OF CHARAISTICS DATA BLOCK 
ADORESS 


;EXTENDED 
sSIZE OF DATA BLOCK IN BYTES 
sMESSAGE BUFFER ADDRESS 


sLENGTH OF MESSAGE BUFFER 
sCLEAR 1ST LOC IN MESSAGE BUFFER 
;RETURN 


10037: 
TRAP 


-SBTTL TEST 3: OMA MEMORY ADDRESSING 


Po 
; TEST 3 


TEST STEPS 


BEGIN 


END 


T1L2LOOP: 


Do Subtest 4 - 


TEST DESCRIPTION 


This test verifies that the controller cen properly eddress and 
eccess ell available CPU memory (other than that occupied by the 

agnostic supervisor code) for both reading (DATI) 
and writing (DATO). Verified are the LSI-11 Bus drivers for all 
eaveilable eddress lines. Up to this point only 16 bits nave been 
used for OMA transfers. 


diagnostic and di 


REPEAT FROM 1 TO LOOPCNT 


- Verify GET STATUS selected locations 

- Verify message packets selected locations 

- Verify Cheracteristic date selected locations 
Verify NXM to selected invalid addresses 


@TST12I0,RO 
PC, TSTSETUP 
#10. ,LOOPCNT 
T3BFLG 

PC .MEMCK 


T3:: 
sASCII MESSAGE TO IDENTIFY TEST 
3:00 INITIAL TEST SETUP 
sPERFORM 10 ITERATIONS 
sSET TEST FLAG 


. »CHECK MEMORY 


sLOOP ON TEST LABEL 


CSsETSsT - 


18 


TSVS - HARDWARE TESTS MACRO M1.13 0O1-FEB-84 17:02 SEQ 099 
TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS 
i -SBTTL TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIUNS 
479 zee 
Pony ; TEST 3: SUBTEST 1: 
8 
oan ; SUBTEST DESCRIPTION: 
’ 
484 3 This subtest verifies the controller can fetch ea get stetus 
486s ; commend from ell eaveileble memory locetions. 
486 : Two word blocks ere tested one at a time by first setting 
487 3 ell eveileble memory to e background pettern of 125252. 
488 3 A Get Stetus command is then executed to various eddresses in 
489 3 each aveileble memory 4k word block. The verious eddresses 
4w~ 3 ere determined by floating a 1 then se 0 through the address bits. 
491 ; 
492 ; TEST STEPS: 
493 ; 
494 3 BEGIN 
495 3 Write to TSSR to soft initielize 
pt 3 Do @ WRITE CHARACTERISTICS to setup e message buffer 
3 
498 3 a FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32k 
499 : N 
500 3 Get a valid modulo-4 test eddress 
501 3 Do ea GET STATUS command from the test address 
502 3 END 
503 3 ENO 
303 4 
506 026226 BGNSUBS 3/7///////4/7/ BEGIN SUBTEST /////4///7/7 
026226 T3.1: 
eer 026226 104402 TRAP CsBSsusB 
5068 
509 sWrite to TSSR to soft initielize 
510 026230 004737 015604’ JSR PC, SOF INIT 3:00 SOFT INIT OF CONTROLLER 
511 026234 103405 ecs 158 ;B8R IF SOFT INIT = OK 
S12 026236 NEXT .ERRNO 
513 026236 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
514 026240 ERROF ERRNO, SF IERR, SF IMSG sDEVICE FATAL ERROR DURING INIT 
026240 104455 TRAP CSEROF 
026242 000455 . WORD 301 
026244 003646' -WORD SFIERR 
_ 026246 011644’ -WORD SFIMSG 
516 :Do @ WRITE CHARACTERISTICS to setup @ message buffer 
517 026250 15$: 
518 026250 012704 027770' MOV @TL2OPACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 
519 026254 00473/ 031350’ JSR PC, TI2SWRT sRESTORE PACKET TO STARTING VALUES 
520 026260 005037 003134’ CLR K TENABLE sTURN OFF KT-11 
S21 026264 010465 000000 MOV R4, TSOB(RS) 3SET THE PACKET ADDRESS 
522 026270 004737 016146’ JSR PC, CHKTSSR sWAIT FOR SSR TO SET 
523 026274 FORCERROR 178 
524 026310 103405 BCS 208 ;B8R IF SSR SET IN CHKTSSR 
525 026312 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
526 026314 NEXT. ERRNO 
S27 026314 17%: ERROF ERRNO, TI2WRTISSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
026314 104455 TRAP CSERDF 


TSvS - 
TEST 8: 


HARDWARE T 
SUBTEST 1: GET STATUS SE 


026316 000456 
026320 
026322 011656’ 


026412 004737 031416’ 
026416 042703 177774 


026424 004737 017106’ 
000000 
026434 004737 016146’ 


026464 030226’ 
026470 104406 


©26502 020227 030176’ 


026510 000137 026340' 
026514 005737 030040’ 


026522 005737 003132’ 
026530 012737 000001 
026536 012702 030044’ 


026542 000137 026340’ 
026546 004737 017106’ 


026554 005737 002222' 


113 O1-FEB 
LECTED LOCATI 


003134' 


030040' 


J8 


-84 17:02 
TIONS 


SEQ 100 


302 
T1I2WRTSSR 
PKTSSR 


a3 


:Verify a Get Stetus can be fetched from each address 
;Get a valid modulo-4 test address 
300 @ = ene command from the test address 


20%; FATFLG 

CLR T12kT 

MOV @T12BLK ,R2 
T121L00P: 


258: 


65%: 


708: 


CLR K TENABLE 
MOV ng de, R1 


TsT T12KkT 

BEQ 253% 

MOV -2(R2),RO 

BIC @tC<A1716>,R0 


MOV #1,K TENABLE 
JSR os ; T1L2CONVERT 


JSR Cc. SSR 
FORCERROR 328 
BcS 40% 

MOV RO,R1 

NEXT 


. ERRNO 
ERRDF ERRNO, TL2GETSSR,PKTGETS 


CKLOOP 

FORCEXIT 80$ 
CMP R2, @T1L2TBE 
BHIS 70$ 

JMP T121L00P 
TST T12kT 

BGT 80% 

TST KTFLG 

BEQ 80% 

MOV #1,T12KT 
MOV @T1L2BLK ,R2 
JMP T121L00P 
JSR PC ,KTOFF 
ENDSUB 

TST FATFLG 


sCLEAR FATAL ERROR FLAG 
sTEST ABOVE 28K SWITCH 
sPOINT TO TEST PATTERN TABLE 


sTURN OFF ABOVE 28K TEST FLAG 
sGET TEST PATTERN ADDRESS 
sASSUME NO TEST ABOVE 28K 
sTEST ABOVE 28K THIS TIME? 
BR IF NO 


‘ 

sGET TEST PATTERN AGAIN 

sSAVE 18 BIT ADDRESS ONLY 

sTURN ON ABOVE 28K TEST FLAG 
sCONVERT TEST PATTERN TO TEST ADDRESS 
;BR IF INVALID PACKET ADDRESS 

sCOPY CURRENT PACKET LOW ADDRESS 
s;COPY CURRENT PACKET HIGH ADDRESS 
sSETUP CURRENT PACKET TO GET STATUS 
sSAVE ADORESS BITS 17+16 

sSETUP 18 BIT PACKET ADDRESS 

3s TURN OFF KT-11 

sSET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 


;BR IF SSR SET IN CHKTSSR 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 303 
-WORD T12GETSSR 
-WORD PKTGETS 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


;DONE ALL TSTBLK TEST 4TTERNS? 
3;8R IF YES 

3:00 ANOTHER MODULO- 4 ADDRESS 
;DONE ABOVE 28K TESTING TOO? 

;8R IF YES 

3; ANY a ABOVE 28K ON SYSTEM? 


300 ABOVE 28K TESTING 

3; TURN OFF KT11 

s\N\NANNANANANN END SUBTEST \ANANANNNANNA 
L10043: 


* TRAP CsESuUB 
sANY FATAL ERRORS ? 


TsvS - 
TEST 3: 


HARDWARE TESTS 
SUBTEST 1: GET STA 


S75 026560 001402 
576 026562 004737 017014’ 


577 


026566 


015604 ' 


027770' 
031350’ 
017106' 


000000 
016146' 


SeLbEreD LOEAT TONS °°? 


BEQ 100$ sBRANCH IF NOT 
5008 JSR PC ,CKDROP sTRY TO DROP THE UNIT 


SEQ 101 


-SBTTL TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 


; TEST 3: SUBTEST 2: 

SUBTEST DESCRIPTION: 
Ercke Wavanvertonien desmendo ant executed with mess 
memory location. 
through the address bits. 

TEST STEPS: 


BEGIN 
Write to TSSR to soft initialize 


Get a valid modulo-4 test address 
Do e WRITE CHARACTERISTICS 


buffer addresses set to various addresses in each avai lable 
The verious eddresses are determined by floating a 1 then a 0 


Do ea WRITE CHARACTERISTICS to setup a message buffer to compare 
a SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32k 


Set the packet mess buffer to the TEST ADDRESS 
Restore the test message buffer to background pattern 


This subtest verifies the controller can deposit message packets 


END 
END 
BGNSUB 34///////7//// BEGIN SUBTEST /////////7/ 
T3.2: 
cs6sus8 
sWrite to TSSR to soft initialize 

JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 

BcS 15% 38R IF SOFT INIT = OK 

NEXT .ERRNO 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERROF ERRNO, SF IERR,SFIMSG sDEVICE FATAL ERROR DURING INIT 

TRAP CSEROF 

304 
SF IERR 
SF IMSG 


18s ea WRITE CHARACTERISTICS to setup a message buffer to compare 


MOV @T1L2PACKET,R4 sGET THE ADDRESS OF COMMAND PACKET 
JSR PC, T12SWRT sSET PACKET TO WRITE CHARACTERISTICS 
JSR PC ,KTOFF sTURN OFF KT-11 

MOV R4, TSOBCRS) sSET THE PACKET ADDRESS 

JSR PC,CHKTSSR sWAIT FOR SSR TO SET 


TsvS - 


HARDWARE 
TEST 3: SUBTEST 


TESTS 


2: MESSAGE Ge PACK 


103405 
010001 
104455 
000461 
030302’ 
011656' 


005037 
012703 


002222' 
030044' 


177774 
000003 
031046' 
027014' 


000000 
016146’ 


030176' 


026674' 
017106’ 


002222' 
017014' 


L8 


KETS TO SELELTED COERTIONS 


030000' 
030002' 


SEQ 102 
sBR IF SSR SET IN CHKTSSR 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 305 
-WORD T12WRTSSR 
-WORD PKTSSR 


buffer to the test address 


FORCERROR 17$ 
Bcs 208 
MOV RO,R1 
NEXT .ERRNO 
17$: ERRDOF ERRNO, TLOEWRTSSR,PKTSSR 
:Get a valid —— 4 test address 
iSet the packe Anne Tents 
300 a WRITE speag by sTiIcs 
20%: CLR FLG 
MOV OTLOBCK,RS 
T122LO0P : 
MOV CR3)+,R1 
MOV R1,RO 
BIC #177774,RO 
BIC @3,R1 
JSR PC, TI2CONVERT 
BCS 25$ 
JMP 150$ 
25%: MOV @T1L2PACKET ,R4 
JSR PC, T12SWRT 
MOV T12LOADD, TL2DATA 
MOV TL2EHIADD, TL2DATA+2 
JSR PC ,KTOFF 
MOV R4, TSOBCRS) 
JSR PC,CHKTSSR 
FORCERROR 32$ 
ecs 50$ 
MOV RO,R1 
NEX 
32$: ERROF ERRNO, TLOWRTSSR,PKTSSR 
50$: CKLOOP 
150$ 
FORCEXIT 160$ 
CMP R3,eT1L2TBE 
BHIS 160$ 
JMP T122LO00P 
160$: JSR PC,KTOFF , 
ENDSUB 
TST FATFLG 
BEQ 180$ 
JSR PC ,CKDROP 
180$: 


see 


sCLEAR FATAL ERROR FLAG 
sPOINT TO TEST PATTERN TABLE 


sGET TEST PATTERN ADDRESS 

sGET ADORESS ALL “18 BITS” 

sLEAVE ONLY A17 AND A16 

sGET RIO OF Al? AND Al6 

sCONVERT TEST PATTERN TO TEST ADDRESS 
s8R IF VALID MESSAGE BUFFER ADDRESS 
sGET ANOTHER TEST PATTERN TO TRY 

sSET THE COMMAND PACKET ADDRESS 
sSETUP T1I2PACKET TO WRITE CHAR. 
sSETUP LOW ORDER MESSAGE BUFFER ADD. 
sSETUP HIGH ORDER MESSAGE BUFFER ADD. 
sTURN OFF KT-11 

sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 


;BR IF SSR SET IN CHKTSSR 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 306 
-WORD T12WRTSSR 
.WORD PKTSSR 
s;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


;DONE ALL TST1L2BLK TEST PATTERNS? 

;BR IF YES 

300 ANOTHER MODULO- 4 ADDRESS 

;TURN OFF KT11 

s\N\NNANNANANNNN END SUBTEST N\ANNNANNANAAA 
L10044; 


TRAP CSESUB 
sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO OROP THE UNIT 


-SBTTL TEST 3: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 


test 3: SUB 


TEST 3; 


027142 


015604' 


002222' 
030040' 
030044' 


003134' 
177774 
000003 
030040' 


177776 


M8 


SESUSenlMGRDs HE SarXt EBC AO G8 rons 


TEST 3: SUBTEST 3: 
SUBTEST DESCRIPTION: 


memory locations. 


TEST STEPS: 


BEGIN 


BEG1 


test address. 


BGNSUB 


sWrite to TSSR to soft initialize 
JSR 


PC ,SOF INIT 
BCS 20% 
NEXT .ERRNO 
MOV RO,R1 
ERROF ERRNO,SFIERR,SFIMSG 


;Get a valid test address 
CLR FATFLG 


20$: 
CLR T12KT 
MOV @T12BLK,R3 
T123L00P; 
CLR K TENABLE 
MOV CR3)+,R1 
MOV R1,RO0 
BIC 9177774,RO 
BIC #3,R1 
TST T12KT 
BEQ 25$ 
MOV -2(R3),RO 


Write to TSSR to soft initialize 
ae SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 


Get ea valid test address 
Set the test packet characteristics data pointer to the 


This subtest verifies the controller can fetch a 
Write Characteristics date block from all available 


Write Cheracteristics commands are executed with 
cheracteristic date blocks at various memory addresses. 
The various memory addresses are determined by floating 
e@ 1 then a O through the address bits. 


Store expected characteristic data in test address block 
Do a WRITE CHARACTERISTIC command 


SEQ 103 


AAA —— SASS ASSSA 
73.3: 


TRAP 


3:00 SOFT INIT OF CONTROLLER 
s;BR IF SOFT INIT = OK 


sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR was 


- WORD 
. WORD 
. WORD 


;CLEAR FATAL ERROR FLAG 
sTEST ABOVE 28K SWITCH 
sPOINT TO TEST PATTERN TABLE 


;TURN OFF ABOVE 28K TEST FLAG 
sGET TEST PATTERN ADDRESS 
;GET ADDRESS ALL “18 BITS” 
;LEAVE ONLY Al7 AND A16 

;GET RID OF A17 AND Al6 

sTEST ABOVE 28K THIS TIME? 
;BR IF NO 

;GET TEST PATTERN AGAIN 


CsB8SUB 


T5VS - HARDWARE 
TEST 3: SUBTEST 


723 


027146 
Ss2 


35 CRARACTERTS TEE 


177774 
000001 
031046' 
027270' 


027770' 


017106’ 
000000 
016146' 


030176' 


027114’ 
030040' 


003132’ 
000001 
030044' 


027114’ 
017106‘ 


002222" 
017014' 


003134’ 


030040: 


3 O1-FE 
DATA SEL 


25%: 


N8 


Ecfeo lécaTIONs 


BIC @tC<A1716>,RO 
MOV #1,K TENABLE 
JSR xeree ene 


60$ 


SEQ 104 


sSAVE 186 BIT ADDRESS ONLY 
sTURN ON ABOVE 28K TEST FLAG 
iCONVERT TEST PATTERN TO TEST ADDRESS 
sBR IF VALIO TEST ADDRESS 
sGET NEXT TEST PATTERN 


gost the test packet Sepa rattes mer” a to the test address 


MOV @TL2PACKET ,R4 

JSR PC, T1L2SWRT 

MOV T12LOADD , PKLOWC(R4 
MOV ye tai 


JSR PC,7T12C 
3:00 a — CHARACTERISTIC command 


328: 


40$: 
60$: 


65$: 


70$: 


75$: 


ee G+ G2 oe Ge @: oe oe 


CKLOOP 

CMP R3,@T12TBE 
BHIS 65$ 

JMP T123L00P 
TST T12KkT 

BGT 70$ 

TST KTFLG 

BEQ 70$ 

MOV #1,T12KT 
MOV #T12BLK ,R3 
JMP T123L00P 
JSR PC ,KTOFF 
ENDSUB 

TST FATFLG 
BEQ 75$ 


JSR PC ,CKDROP 


T_THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 
sSTORE CHAR. DATA PTR LOW ADDRESS 
sSTORE CHAR. DATA PTR HIGH ADDRESS 
sSTORE EXPECTED DATA IN DATA BLOCK 


sTURN OFF KT-11 
;SET THE aint oe - = mee TO EXECUTE 
sWAIT FOR SSR T 


3BR IF SSR SET IN CHKTSSR 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CsEROF 
-WORD 308 
-WORD T12WRTSSR 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSsCLP1 


;O00NE ALL TSTBLK TEST PATTERNS? 

;BR IF YES 

3:00 ANOTHER MODULO- 4 ADDRESS 

;DONE ABOVE 28K TESTING TOO? 

3;BR IF YES 

sANY MEMORY ABOVE 28K ON SYSTEM? 

;6R IF NO 

;SET SWITCH 

sRESET TEST PATTERN TABLE 

3:00 ABOVE 28K TESTING 

;TURN OFF KT11 

sNNNNANANANANN END SUBTEST N\ANANANANAN 
L10045: 


TRAP CsESUB 
sANY FATAL ERRORS ? 
;BRANCH IF NOT 
sTRY TO DROP THE UNIT 


-SBTTL TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 
ee 
; TEST 3: SUBTEST 4: 


SUBTEST DESCRIPTION: 


This subtest verifies the NXM error bit in the TSSR 

register is set when attempting to fetch data (a characteristic 
data block) from selected nonexistent locations. 

If NXM fails to set it is likely that an LSI-11 Bus driver is 
failing to assert an address line. 


027354 
027354 
027354 


027356 
027356 
027362 
027364 


027370 
027374 
027376 
027376 
027400 
027400 
027402 
027404 
027406 


027410 
027410 
027412 
027416 
027422 


STS. _ MACRO M1113 
NXM TO SELECTED INV 


ba 
“mM 


104402 


005737 003136’ 
001002 
000137 027716' 


004737 015604’ 
103405 


104406 

012704 027770' 
004737 031350’ 
005037 003134° 


B9 


01-FEB-84 17:02 


ID ADDRESSES 


bite (i.e bite 16-21). 


128K words of memory! 


TEST STEPS: 
BEGIN 


test eddress 


END 
END 

BGNSUB 
58: 

TST NXMFLG 

BNE 108 

JMP NOE X TF 
sWrite to TSSR to soft initialize 
108; JSR PC, SOF INIT 

6cs 118 

NEXT, ERRNO 

MOV RO,R1 

ERROF ERRNO, SF IERR, SF IMSG 


Write to TSSR to soft initialize 
Do a write characteristic command 
Invert the extended features switch 


a te SELECTED NON-EXISTENT MEMORY ADDRESSES 


Get ean invelid test address 
Set the test packet characteristics date pointer to the 


SEQ 105 


Addresses tested include ell combinations of high-order address 


SOSEOEHASEEHSEHASESEASESEEEEEEEESEHEEEEEEEHEEEHESEHEEEEEEEEEEEEEEOSE 


CAUTION 


The LSI BUS drivers for ell available address lines( 16-21) 
ere only checked when running on a 


PDP-11 system with more than 


SOOHSHOHSHHEHSHHASHEHESEEHEHSEHEEESEEESEHEEHEEOEEEHEEEHEHEEEEEEEOEEEOEEE 


Do a WRITE CHARACTERISTIC command 
If TSSR register NXM bit not set then print error message 


3//////////// BEGIN SUBTEST S//4/4///7/7/ 
13.4: 
TRAP CsBSUB 


sGOT ENOUGH MEMORY? 
sIF SET STAY 
sLEAVE IF NOT SET 


:00 SOFT INIT OF CONTROLLER 
s8R IF SOFT INIT = OK 


sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR ans ye 


sDo a WRITE CHARACTERISTIC command so to invert switch 


118; CKLOOP 
MOV @TL2PACKET ,R4 
JSR PC, T1I2SWRT 
CLR K TENABLE 


CSERDF 
-WORD 309 
-WORD SFIERR 
«WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CscLPl 


sGET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 
sTURN OFF KT-11 


7 


TEST 5. "SUBTEST UE SNRm 1O*GECEE HA OAc TB ABbne cere 


027462 
027464 
027466 
027466 
027470 


027474 


027624 


027626 
027626 
027632 


866 027646 


027652 


010465 
004737 


104406 
004737 


005037 


013737 
013737 


016501 


032701 
001020 


000000 
016146' 


020734' 


002222" 


003142' 
003140' 


027770' 


017106' 
000000 
016060' 


002222' 


000002 
004000 


030032’ 
03C034' 


MOV R4,TSOB(RS) 
JSR PC,CHKTSSR 
FORCERROR 158 
6cs 178 
MOV RO,R1I 
NEXT .ERRNO 
158: ERROF ERRNO, TLOWRTSSR,PKTSSR 
178; CKLOOP 
JSR PC, INVERT 
;Get an invelid test address 
208: CLR FATFLG 
258: 
MOV NXMHI, TL2HIADD 
MOV NXMLO, T1L2L OADD 
T124LO00P: 


SEQ 106 
sSET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 


sBR IF SSR SET IN CHKTSSR 
sSAVE CONTENTS OF TSSR 


‘sOEVICE FATAL SSR FAILED TO SET 


TRAP CSEROF 

-WORD 310 

«WORD Ti2QWRTSSR 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CscLP1 


sINVERT THE SWITCH 


sCLEAR FATAL ERROR FLAG 


sSAVE TEST ADORESS HIGH 
sSAVE TEST ADDRESS LOW 


sSet the test packet characteristics data pointer to the 


s test address. 


308: MOV @TLOPACKET ,R4 
JSR PC, TL2SWRT 
MOV TL2LOADD , PKLOW( R4 ) 
MOV TL2HIADD , PKHI(R4 ) 
300 a WRITE CHARACTERISTIC command 
JSR PC .KTOFF 
MOV R4, TSOBC(RS) 
JSR PC .WAITF 
FORCERROR 328 
bcs 403 
MOV RO,R1 
NEXT .ERRNO 
32%: ERROF ERRNO, TLOWRTSSR,PKTSSR 
INC FATFLG 
403; CKLOOP 
FORCERROR 45% .NOTSSR 
ESCAPE SUB 


sGET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 
sSTORE CHAR. DATA PTR LOW ADDRESS 
sSTORE CHAR. DATA PTR HIGH ADDRESS 


sTURN OFF KT-11 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 


sB8R IF SSR SET IN CHKTSSR 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CsEROF 

. WORD 311 

.WORD TLIQOWRTSSR 

WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CSCLPlL 
:8Y-PASS SUBTEST IF FATAL ERROR 

TRAP CSESCAPE 

. WORD L10046-. 


in TSSR register NXM bit not set then print error message 


MOV TSSR(RS),R1I 
FORCERROR 5238 
BIT ONXM,R1 

BNE 60% 


sGET TSSR CONTENTS 


sNXM SET? 
sBR IF YES 


te? 3: 


027710 
027712 


027714 
027714 
027716 
027716 
027716 
027722 
027722 


027764 
027770 
027770 
027772 
027774 
027776 


005237 
022737 
001312 


013737 
013737 


030032’ 
000004 


030034' 
030032' 


017106’ 


002222’ 


017014' 
016270' 


026226' 


017106’ 
003150’ 


000000 


030032’ 


002240° 
002236’ 


MSUBYEST JESNite rO*GEPEP TESS ruPhc FBP ABBne zePe 


S28: 


1008: 


1058: 


D9 


T12HIADD 
04, TIZHIADD 
T124L00P 


T12LOAD0, ERRLO 
TL2HIADD, ERRHI 
ERRNO, TL2NXM,ADDSSR 


PC ,.KTOFF 


FATFLG 
100$_ - 

PC ,.CKDROP 
PC, TSTLOOP 
105% 


T12L00P 
PC ,KTOFF 


T3BFLG 
TsT 


3° 
sLOCAL STORAGE FOR THIS TEST 


TL2PACKET: 


TL2DATA: 


T12BFR: .BLKW 


TL2HIADD: 
TL2LOADD: 
T12PARE6: 
T1L2KT: 


10-<, -TSV2E7> 


100004 
T1I2DATA 


o 
oooo 


SEQ 107 


TSUOS BUMP HIGH ADDRESS COUNTER 
+ TSU05 CHECK TO SEE IF AT 19 BITS YET 
sTSUOS TRY BITS 17 AND 18 BEFOR ERROR 


sMEMORY TEST ADORESS LOW 
sMEMORY TEST ADDRESS HIGH 
sREPORT ADORESS AND TSSR ERROR 


TRAP CSERHRD 

. WORD 12 

-WORD  T12NXM 

«WORD ADOSSR 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


;TURN OFF KT11 
SNNANNANNNANNAN END SUBTEST \ANANANANAN 


TRAP CsEesus 
sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO DROP THE UNIT 
sSHOULD WE DO ITERATIONS? 
36R IF NO 
sLOOP UNTIL ITERATION COUNT DONE 


sTURN OFF MEMORY MANAGEMENT 
sCLEAR TEST FLAG 
sALL DONE THIS TEST 
TRAP 
. WORD 


CSExIT 
L10042-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sLOW ADDRESS OF 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sHIGH ADDRESS 

sLOW ADDRESS 

sADDRESS IN PAR FORMAT 
sTEST ABOVE 28K SWITCH 


TSVS - HARDWARE 
TEST 3: SUBTEST 


030042 


030200 


TESTS 


000000 


177777 


104 


co 


MACRO M1113. 01-FEB-84 17:02 
4: NXM TO SELECTED INVALID ADDRESSES 


115 


101 


T124TST: -WORD O 
3¢ 


sADDRESS TEST BIT 


; 
s TABLE OF ADDRESSES 
; 


3 - 
T12BLK; .WORD 000001 


«WORD 000005 
-WORD 000006 


SSS5SS5555555555559585355555355955805085 


o 


TL2TBE: . WOR’ 177777 


3 
sLOCAL TEXT MESSAGES FOR TEST 
0 


TST12I10: -ASCIZ ‘DMA Memory Addressing’ 


SEQ 108 


ry 


TSVS - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 SEQ 109 


TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 
975 030226 103 157 156 T12GETSSR: ASCIZ ‘Contents of TSSR Incorrect After GET STATUS’ 
976 030302 103 157 156 T12WRTSSR: -ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 
977 030371 115 145 163 TL2MSGBUF; ASCIZ ‘Message Buffer Contents Incorrect After WRITE CHARACTERISTICS’ 
978 030467 102 141 143 T12BKGND: -ASCIZ ‘Background Pattern Disturbed By WRITE CHARACTERISTICS’ 
979 030555 105 170 160 TI2NINT: -ASCIZ ‘Expected Interrupt Not Received On WRITE CHARACTERISTICS’ 
980 030646 127 162 151 T12DPR: -ASCIZ ‘Write Characteristic data in ram does not match expected’ 
981 030737 124 123 123 T12NXM ASCIZ ‘TSSR NXM bit failed to set when non-existent memory address specifi 
ed' 
982 .EVEN 
983 
985 
3¢ 
986 sROUTINE TO CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE 
987 3 DIAGNOSTIC FREE SPACE IS BETWEEN THE END OF THE DIAGNOSTIC AND THE 
988 F BEGINNING OF THE SUPERVISOR. THIS IS ALWAYS BELOW 24K. 
989 3 IF MEMORY ABOVE 28K SPECIFIED (VIA R1) THEN PAR 6 IS SET 
cen 3 TO THE RELOCATION BASE. 
1 3 
992 : INPUTS: 
993 Hy 
994 2 RO HIGH ORDER ADDRESS BITS 
ba 8 R1 LOW ORDER ADDRESS BITS 
3 
997 3; OUPTUTS: 
998 : T12PAR6 = ADDRESS BIASED TO PAR6 IF >28K UNDER TEST 
999 3 TL2HIADD = HIGH ORDER ADORESS IN NON PAR6 FORMAT 
1000 3 T1L2LOADD = LOW ORDER ADDRESS IN NON PAR6 FORMAT 
1001 3 C BIT = 1 IF GOOD ADDRESS RETURNED 
pee | 3 C BIT = O IF TEST PATTERN DID NOT YIELD A VALID ADDRESS 
3° 
1004 031046 TL2CONVERT: 
1005 031046 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
1006 031052 005037 030034’ CLR T1L2LOAD0 sCLEAR LOW ADDRESS 
1007 031056 005037 030032’ CLR TL2HIADD sCLEAR HIGH ADDRESS 
1008 031062 005037 030036’ CLR T12PAR6 sCLEAR PAR6 BIASED ADDRESS 
1009 031066 042701 170000 BIC @tC<7777>,R1L sFORCE TO LOWER 12 BITS OF ADDRESS 
1010 031072 010005 MOV RS sSAVE HIGH ORDER ADDRESS BITS 
1011 031074 004737 017106’ JSR PC ,KTOFF sSHUTOFF MEMORY MANAGEMENT 
1012 031100 013702 003124' MOV FREE ,R2 3;GET FIRST FREE ADDRESS 
1013 031104 062702 000020 ADD #16. ,R2 3IN CASE TEST PATTERN=0 
1014 031110 060102 ADD R1,R2 sADD IN TEST PATTERN 
1015 031112 042702 000003 BIC 63,R2 sMAKE IT MODULO-4 
1016 031116 013703 003130’ 253: MOV FREEHI, R3 iGET LAST FREE ADDRESS 
1017 031122 162703 000020 sus #16. RS sSAVE AT LEAST 8 WORDS CIN CASE MESSAGE BUFFER) 
1018 031126 010237 030034’ MOV R2, T12LOADD sSAVE POSSIBLE LOW ADDRESS 
1019 031132 010237 030036’ MOV R2,T1L2PAR6 SAVE IT IN PAR6 BIASED TOO 
1020 031136 020203 CMP R2,R3 3IS THIS ADDRESS ABOVE FREE SPACE? 
1021 031140 101007 BHI 35% 3;8R IF YES 
1022 031142 020237 003124' CMP R2, FREE 3IS IT IN FREE SPACE? 
1023 031146 103007 BHIS 50$ 3;68R IF YES- ITS GOOD 
1024 031150 005737 003134’ TST K TENABLE sTESTING ABOVE 28K? 
1025 031154 001004 BNE 50$ ;8R IF YES 
1026 031156 000424 BR 90% 36R IF NOT IN FREE SPACE 
1027 031160 162702 000020 35%: SUB #16. ,R2 sFORCE FIT THE TEST PATTERN 
1028 031164 0007 BR 25% ;TRY THIS TEST PATTERN ADDRESS 
1029 031166 50$: 
1030 031166 005737 003134’ TST K TENABLE sTESTING ABOVE 28K? 
1031 031172 001420 BEQ 100% ;8R IF NO 
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1032 031174 
1033 031200 


1073 031240 
1074 031240 


TESTS 
4: NXM 


012701 
012702 


G9 
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TO SELECTED INVALID ADDRESSES 


003132’ 
017070' 
030032" 


017130 
030036' 


002242' 
000201 


016146' 
000000 
016146' 
000000 
016146‘ 
000000 


000203 


TsT KTFLG 
BEQ 90% 
JSR PC ,.KTON 
MOV RS,RO 
MOV RO, TL2HIADD 
MOV oR1 
JSR PC, SETMAP 
MOV RO, TL2PAR6 
ecs 105% 

90$; CLC 
BR 105$ 

100$: SEC 

105%: RTS PC 


SEQ 110 


sANY MEMORY ABOVE 28K? 

368R IF NO 

;TURN ON MEMORY MANAGEMENT 

3GET HIGH ORDER ADDRESS 

sSAVE POSSIBLE HIGH ADDRESS 

sGET COMPUTED LOW ORDER ADDRESS 
sRETURN PAR6 BIASED oe IN RO 


ESS 
sCLR C BIT FOR FAILURE 


y 
3SET SUCCESS 
sRETURN 


a 
sROUTINE TO READ THE FIRST 2 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


: 

3; INPUT: 

; 

3 R4 ADDRESS OF THE COMMAND PACKET 

: RS FIRST DEVICE UNIBUS ADDRESS 

F 

;OUTPUT: 

3 

Fy CARRY SET - RAM MATCHES PACKET 

3 CLR - RAM DOES NOT MATCH PACKET 


; 
sIMPLICIT OUTPUT: 
DATA HELD IN RAM 


; 
; 
; 
; 
sSIDE EFFECTS: 
; 
; 
; 
; 
T 


SAVREG 
MOV @RAMDATA,R1 
MOV ORMPK TBEG ,R2 
CLR R3 
JSR PC,CHKTSSR 
MOVB #0, TSDOBC(RS) 
108: JSR PC,CHKTSSR 
MOV R2, TSOBC(RS) 
JSR PC,CHKTSSR 
MOVB TSBACRS),C(R1) 
CMPB CR1L)+,CRO)> 
BEQ 20% 
INC R3 
20%: INC R2 
CMP R2, ORMPK TBEGec 


THE TABLE RAMDATA IS FILLED WITH THE 
RAMSIZ SET TO 2 FOR PRAMPKT ROUTINE 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


;SAVE THE GENERAL REGISTERS 
sADDRESS TO SAVE THE RAM DATA 
;BYTE ADDRESS OF FIRST RAM DATA 
sCLEAR THE ERROR FLAG 


sSELECT NEXT RAM ADDRESS 
sWAIT FOR SSR TO SET 

sREAD THE RAM DATA 

sCOMPARE TO EXPECTED 

sBRANC4 IF OK 

sSET ERROR FLAG 

sADDRESS OF NEXT RAM LOCATION 
sDONE 2 BYTES? 


031414 


031416 
031416 
031422 
031424 
031430 
031432 
031434 
031440 
031442 
031446 
031452 
031454 
031456 


012701 


000002 002302’ 


027770° 


003134' 


017130' 


000017 
100000 


H9 


FEB - : 
Ac TB aBond eee 
BL 10% IF NO 
TST R3 sWAS AN ERROR FOUND ? 
BEQ 30$ sBRANCH IF NOT 
CLC sCLEAR CARRY TO SHOW ERROR 
BR 508 » 3AND EXIT 
30$: SEC sSHOW GOOD COMPARE 
50s: MOV @2,RAMSIZ sSETUP RAMSIZ 
RTS PC 3 RETURN 


3¢ 

a 

sROUTINE TO SETUP PACKET TO WRITE CHARACTERISTICS 
: = 


T12SWRT; 
SAVREG sSAVE THE REGISTERS 
MOV @TLOPACKET,R1 sSTART OF THE PACKET 
MOV #100004 ,(R1)>+ sWRITE gay hap ty WITH ACK 
MOV @T12DATA,CR1)+  ;ADDRESS OF CHAR DATA BLOCK 
CLR CR1)> sEXTENDED ADDRESS 
MOV #8. .CR1)> sSIZE OF DATA BLOCK IN BYTES 
on os ecm sADDRESS OF MESSAGE BUFFER 
L > 
MOV 014. ,CR1)> ;LENGTH OF MESSAGE BUFFER 
CLR CR1)> 
CLR (R1) 
RTS PC sRETURN 


3° 

; 

sROUTINE TO SETUP A GET STATUS COMMAND PACKET AT CURRENT PACKET ADORESS 
a4 HIGH ORDER PACKET ADDRESS 


LOW ORDER PACKET ADDRESS 
NOTE : R3 IS IGNORED IF KTENABLE FLAG CLEAR 


T1I2SETGET: 
SAVREG sSAVE THE REGISTERS 
MOV R4,R1 sGET LOW ORDER ADDRESS 
TsT K TENABLE sTESTING ABOVE 28K? 
BEQ 10% :BR IF NO 
MOV R3,RO sGET HIGH ORDER ADDRESS 
JSR PC, SETMAP sRETURN ADORESS BIASED TO PARE IN RO 
MOV RO,R1 sGET ADDRESS 
108: MOV oP .GETSTATUS,RO ;GET STATUS COMMAND CODE NO IE 
BIS oP ACK ,RO sSET ACK 
MOV RO,CR1)> sSTORE GET STATUS IN PACKET 
CLR (R1)-> sCLEAR UNUSED WORD 
RTS PC sRE TURN 


3° 


; 

sROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TEST ADDRESS 
; 

i 


SEQ 111 


19 


TSVS - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 SEQ 112 
TEST 3S: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 
1146 031460 TI2CHAR: 
1147 031460 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1148 031464 012700 030000’ MOV @TL2DATA,RO :GET TI2PACKET DATA POINTER 
1149 031470 013701 030034’ MOV T1L2LOA00 ,R1 sASSUME NOT ABOVE 28K 
1150 031474 005737 003134’ TsT K TENABLE sTESTING ABOVE 28K? 
1151 031500 001402 BEG 108 :8R IF NO 
1152 031502 013701 030036’ MOV T1L2PAR6,R1 sSET TEST ADDRESS ABOVE 28K 
1153 031506 012621 10$: MOV CRO)+,CR1)> sSTORE DATA WORD 1 
1154 031510 012021 MOV CRO)+, CRI D+ sSTORE DATA WORD 2 
1155 031512 012021 MOV CRO)+,CR1)> sSTORE DATA WORD 3 
1156 031514 012021 MOV CRO)+,CR1)> sSTORE DATA WORD 4 
1157 031516 012021 MOV C(RO)+,CR1)> sSTORE DATA WORD 5 
io 031520 000207 RTS PC sRETURN 
1160 031522 ENOTST 
03i52e L1004e2: 
031522 104401 TRAP CSsETST 
1161 
1162 -SBTTL TEST 4: RAM EXERCISER TEST 
1163 :¢ 
1164 3 
1165 sTHIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256 
1166 sLOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND 
rd ;TO EXERCISE THE CONTROLLER'S RAM MEMORY AND OMA LOGIC 
; 
1169 :- 
1170 031524 BGNTST 
031524 T4:: 
1171 
1172 
1177 031524 005737 002214’ TsT TSTCNT ;CHECK FOR RUN MODE 
1178 031530 001402 BEQ 10$ sBR, IF NOT ONLY PROGRAM RUN 
1179 031532 005237 003400’ INC SKIPT sSET SKIP Sw 
11860 031536 012700 034163' 108: MOV @TST15I0,RO sASCII MESSAGE TO IDENTIFY TEST 
1181 031542 004737 016322' JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
1182 031546 012737 000005 002216' MOV @5,LOOPCNT sPERFORM S ITERATIONS 
1183 031554 15LOOP: 
1184 ; 
1185 ; 
$14: sTEST 4, SUBTEST 1 
3 
1188 3 THIS SUBTEST WRITES THE ADDRESS (8 BITS) INTO THE 
t+ 3 RAM MEMORY SINGLE WORD (8 BITS) MODE 
; 
1191 :- 
1192 031554 BGNSUB 37///////7//7// BEGIN SUBTEST ¢///47/74//7/7/7 
031554 74.1: 
031554 104402 TRAP CsB8SUB 
1193 031556 SETPRI @PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
031556 012700 000000 MOV @PRIOC RO 
031562 104441 TRAP CSSPRI 
1194 031564 005737 003400’ TsT SKIPT sSHOULD WE SKIP THIS SUBTEST 
1195 031570 001402 BEQ 10% ;BR, IF NOW SKIP REQUIRED 
1196 031572 000137 032054’ JMP 508 ;SKIP SUBTEST 
1197 031576 004737 034202’ 108: JSR PC, TISREST sSET COMMAND PACKET 
1198 031602 004737 034254’ JSR PC, TISRT2 ;SET UP OTHER COMMAND PACKET 
1199 031606 004737 015604’ JSR PC, SOF INIT 3:00 INITIALIZE ON CONTROLLER 
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1200 031612 
1204 


112737 
010337 033612’ 


000000 
016146’ 


010000 


033614’ 
033612" 
000001 033610' 
000000 


016146' 


032012 
032014 


40%: 
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JI 


20% 
RO,R1 
ERRNO, SF TERR, SF IMSG 


@TISPACKET ,R4 
PC,WRTICHR 
23% 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


256. ,R3 
#1,7158S1 
#2,T158S0 


R3,715S2 


PC ,CHKTSSR 
30% 


RO,R1 
ERRNO, T1SSSR,PKTSSR 


SUB 


R3,T15S3 
R3,T15S2 
#1,7158S0 
R4, TSOBCRS) 
PC,.CHKTSSR 
43% 


RO,R1 
ERRNO, T1SSSR,PKTSSR 


SEQ 113 
s6R IF INIT WAS OK 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 401 
«WORD SFIERR 
«WORD SFIMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC os 


CSERHRD 
-WORD 402 
SF IMSG 


. WORD 
sSTARTING ADDRESS FOR RAM WRITE 
sSIZE OF TRANSFER 
sWRITE RAM “COMMAND” 


sADDRESS FOR RAM 

sWRITE SUBSYS MEM PACKET 

sDATA FOR WRITE CACORESS) 

s ISSUE COMMAND 

sWAIT FOR SSR 

BR, IF NO ERROR 

sERROR, SAVE TSSR 

sTSSR NOT CORRECT AFTER WRITE SUB MEM 


TRAP CSERHRD 

«WORD 403 

-WORD T1SSSR 
WORD PKTSSR 


;D0N' T CONTINUE IF ERROR ON WRITE 
TRAP  CSESCAPE 
.WORD 110050-. 


TRAP CsCLP1 


;SCOPE LOOP 


sNEXT ADDRESS 

sEND OF RAM MEMORY CHECK 

sLOOP TILL ALL RAM WRITTEN 
sCLEAR OUT R2 HIGH BITS 

3SET BACK TO 7777 

sGET DATA PATTERN BACK IN SHAPE 
sADDRESS FOR RAM READ 

sREAD RAM COMMAND 

sSEND OUT PACKET ADDRESS TO CONTR. 
sWAIT FOR READY, NON-AMBIGUOUS 
;BR, IF NO PROBLEM 

sSAVE TSSR 

sTSSR NOT CORRECT 


TRAP CsEROF 
«WORD 404 

-WORD T.1SSSR 
-WORD PKTSSR 
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104406 
013701 
302 


000625 
034075’ 
015312’ 
104406 
005303 
020327 
001340 
104406 


104403 


104402 


112737 
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033142’ 


000377 


033100° 
010472’ 


43%; 


3¢ 


CKLOOP 
MOV 
MOV 
CMPB 


BEQ 
ERRHRD 


BGNSUB 


K9 


— 


R1,R2 
45$ 
ERRNO, T15AM4 ,EXPBREC 


R3 
R3,0255. 
40% 


; 
sTEST 4, SUBTEST 2 


25 
000001 033611’ 


:SCOPE LOOP 


sGET RAM READ DATA 

sSET UP FOR COMPARE 

sCHECK WITH DATA WRITTEN 

sBR IF OK, DATA IN = DATA OUT 

sWRITTEN DATA NUT = TO READ 
TRAP 
- WORD 
. WORD 
. WORD 


TRAP 


sSCOPE LOOP 


TRAP 
sOROP DATA COUNTER (PATTERN) 
sAT BOTTOM YET 
sBR, IF MORE TO CHECK 
sSCOPE LOOP — 


CsCLP1 


CsCLP1 


sNNNNNANANNANN END SUBTEST \ANANNNANANNA 
50: 


TRAP 


CsESsus 


34////////47/// BEGIN SUBTEST /S/////////77 
74.2: 


TRAP 


THIS SUBTEST WRITES RAM WITH ALL ZEROS 


THEN WALKS AN ALL ONES 


MOVB 


PC, TISREST 
PC, TISRT2 
PC, SOF INIT 
20% 


RO,R1 
ERRNO, SFIERR, SFIMSG 


@TISPACKET ,R4 
PC, WRICHR 

es% 

RO,R1 

ERRNO, WRTMSG, SF IMSG 


#1,7158S1 


WORD DOWN 


THROUGH MEMORY 


sRESTORE PACKET FOR WRITE CHARA 
sRESTORE PACKET FOR WRT SUB SYS 
300 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 

TRAP 

- WORD 

- WORD 

. WORD 


C$BSUB 


MEM 


s SUBROUTINE NEEDS PACKET ADORESS 


sISSVE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 
sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
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000632 
033773' 


MACRO M1113 0O1-FEB-84 17:02 
TEST 


033600’ 
000400 
000002 033610" 
033614’ 
033612' 


000000 
016146' 


010000 


000001 033610' 
033612’ 
000000 


016146' 


033142' 


033610' 
033614' 


000000 
016146' 


33%: 


353%: 
40%: 


41$: 


423: 


MOV 
ERRHRD 


LOY 


eae 


R4, TSOBCRS) 

PC, CHKTSSR 

41% 

RO,R1 

ERRNO, T1SSSR,PKTSSR 


TISBFR+20,R1 
R1,R2 


42$ 
ERRNO, T1SAM3,EXPBREC 


#000377 ,R2 
@2,T158S0 
#000377,7T1553 
R4, TSOBCRS) 
PC,CHKTSSR 
43% 


RO,R1 
ERRNO, T1SSSR,PKTSSR 


sSET NEW PACKET ADDRESS 
sSTARTING ADDRESS IN RAM 
sWRITE RAM COMMAND 

sSET DATA TO 000 

sADORESS TO PACKET DATA AREA 
sSEND OUT PACKET ADDRESS 


;6R, IF NO PROBLEM 
3SA SSR 
3TSSR NOT CORRECT 
TRAP 
. WORD 
. WORD 
WORD 
sSCOPE LOOP 
TRAP 
sNEXT ADDRESS 


sEND OF RAM MEMORY CHECK 
;BR, MORE RAM TO GO 
sSET BACK TO 7777 


sTSSR NOT CORRECT 


SEQ 115 


CSsCLP1 


TRAP CSERHRD 
-WORD 409 
-WORD T1SSSR 
-WORD PKTSSR 

sSCOPE LOOP 
TRAP CscCLP1 

sPICK UP READ DATA 

sBOTH SHOULD BE 00000000 BINARY 

;BR, IF DATA IS GOOD 

sCHARACTERISTICS DATA NOT CORRECT 
TRAP CSERHRD 
-WORD 410 
-WORD T1SAM3 
-WORD EXPBREC 

;SCOPE LOOPER 
TRAP CsCLP1 

;SET ALL ONES WORD 

sWRITE RAM COMMAND 

sALL ONES PATTERN 

sPASS PACKET ADDRESS TO CONTR. 

sWAIT FOR SSR 

;BR, IF OK (NO ERROR) 

sSAVE TSSR 

:TSSR NOT CORRECT 
TRAP CSERHRD 
«WORD 411 
«WORD T1SSSR 


TSVS - HARDWARE 


TEST a7 RAM EXERCESER Tet  UttS O2-FEB-84 17:02 


032516 


M9 


SEQ 116 


«WORD FPKTSSR 
TRAP CSCLP1 


sSCOPE LOOP 


sSET UP FOR RAM READ 
s ISSUE RAM READ 


sTSSR NOT CORRECT 
TRAP CsEROF 
wORD 


“wORD  T1SSSR 
WORD 


sPICK UP REC‘D DATA 
sCHECK WITH DATA WRITTEN 
;BR IF OK, DATA IN = DATA OUT 
sWRITTEN DATA NOT = TO READ 
TRAP CSERHRD 


«WORD 413 
«WORD T1ISAM2 
«WORD EXPBREC 


sSCOPE LOOP 


TRAP CscLP1 
sDROP RAM ADDRESS POINTER 


sAT START YET 
;BR, IF MORE RAM TO CHECK 


ENANANAANNANNN END SUBTEST N\ANANNNAANAAN 


TRAP CsESUB 


34/////////// BEGIN SUBTEST 4/////4////77/ 
; 74.3: 


TRAP CsB8SUB 


THEN WALKS AN ALL ZEROS WORD DOWN THROUGH MEMORY 


;CHECK RUN MODE 

;BR, IF NO SKIP 

;SKIP SUBTEST 

sRESTORE PACKET FOR WRITE CHARA 
sRESTORE PACKET FOR WRT SUB SYS MEM 
300 INITIALIZE ON CONTROLLER 

;B8R IF INIT WAS OK 

;CONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 


-WORD SFIERR 
-WORD SFIMSG 


011656’ 
43%: CKLOOP 
104406 
112737 000001 033610’ MOVB #1,7T158S0 
010465 000000 MOV R4,TSOBC(RS) 
004737 016146’ JSR PC,CHKTSSR 
103405 bcs 44$ 
010001 MOV RO,R1 
ERROF ERRNO, T15SSR,PKTSSR 
104455 
000634 
033616' 
011656’ 
013701 033142’ 44$: MOV TISBFR+20,R1 
120102 CMPB R1,R2 
001404 BEQ 45$ 
ERRHRD ERRNO, T1SAM2,EXPBREC 
104456 
000635 
033672' 
015312’ 
45$: CKLOOP 
104406 
005303 DEC R3 
020327 000377 CMP R3,0255. 
001271 BNE 40$ 
ENDSUB 
104403 
BGNSUB 
104402 
3° 
3 
;TEST 4, SUBTEST 3 
F 
3 
: THIS SUBTEST WRITES RAM WITH ALL ONES 
8 
7 
005737 003400’ TST SKIPT 
001402 BEQ 10$ 
000137 033056’ JMP 50$ 
004737 034202’ 10$: JSR PC, TISREST 
004737 034254’ JSR PC,TISRT2 
004737 015604’ JSR PC, SOF INIT 
103405 bcs 20$ 
010001 MOV RO,R1 
ERROF ERRNO, SFIERR,SFIMSG 
104455 
000636 
003646' 
011644’ 
20%: 
012704 033100' MOV #TLSPACKET ,R4 


;SUBROUTINE NEEDS PACKET ADDRESS 


TSVS - HARDWARE TESTS 
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004737 
103405 
010001 


104456 
000637 


005052 
011644’ 


112737 
012704 


112737 
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010472' 


033611' 


033610' 
033614’ 


000000 
016146' 


010000 


000377 
000001 033610’ 
033612’ 
000000 


016146' 


033142’ 


000377 
000002 033610’ 
000377 033614’ 


33%: 


35$: 
40$: 


41s: 


42$: 


N9 


PC ,WRTCHR 
25% 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


#1,T158S1 


0377,T15S3 
R3,Ti5S2 
R4,TSOBCRS) 
PC,.CHKTSSR 
33$ 


RO,R1 
ERRNO, T1SSSR,PKTSSR 


PC‘ CHKTSSR 
41s 


RO,R1 
ERRNO, T1SSSR,PKTSSR 


TLSBFR+20,R1 
R1,R2 


42$ 
ERRNO, T15AM3,EXPBREC 


#000377 ,R2 
#2,T15B8S0 
#000377,T15S3 


SEQ 117 

sISSUE WRITE CHARACTERISTICS 

sB8R, IF COMMAND ISSUED OK 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
«WORD 415 
«WORD WRITMSG 
«WORD SFIMSG 

sSET SIZE TO 1 BYTE 

sSET NEW PACKET ADDRESS 

sSTARTING ADDRESS IN RAM 

sWRITE RAM COMMAND 

sSET DATA TO 377 

sADDRESS TO PACKET DATA AREA 

sSEND OUT PACKET ADDRESS 

sWAIT FOR SSR 

;B8R, IF NO PROBLEM 

sSAVE TSSR 

*TSSR NOT CORRECT 
TRAP CSERHRD 
«WORD 416 
«WORD T15SSR 
«WORD PKTSSR 

sSCOPE LOOP 
TRAP CsCLP1 

sNEXT ADDRESS 


sEND OF RAM MEMORY CHECK 
;BR, MORE RAM TO GO 

sSET BACK TO 7777 

;SET TO ALL ONES 

sREAD RAM COMMAND 
sADDRESS TO BE READ TO PACKET DATA 
;SEND OUT PACKET ADDRESS 
sWAIT FOR SSR TO SET 
;BR, IF ALL IS WELL 
sSAVE TSSR 

;TSSR NOT CORRECT 


TRAP CSERHRD 

-WORD 417 

-WORD T15SSR 

-WORD PKTSSR 
;SCOPE LOOP 

TRAP CsCLP1 


sPICK UP READ DATA 
;BOTH SHOULD BE 11111111 BINARY 
;BR, IF DATA IS GOOD 
; CHARACTERISTICS DATA NOT CORRECT 
TRAP CSERHRD 


«WORD 418 
-WORD T1SAM3 
-WORD EXPBREC 


;SET ALL ONES WORD 
sWRITE RAM COMMAND 
sALL ONES PATTERN 


TsvS - 
Te 


TE HAEAO Mil135 O1 


HARDWARE 
ST 4: RAM EXERC dep TES 


010465 000000 
004737 016146’ 
103405 
010001 
104456 


000643 
033616' 
011656' 


104406 


112737 000001 033610’ 
000000 


016146' 


033142’ 


033672' 


000377 


016270’ 
031554' 


-FEB-84 17:02 


43%; 


44%: 


45%: 


508: 


63%: 


B10 
R4, TSDBCRS) 


PC,.CHKTSSR 
43% 


RO,R1 
ERRNO, T15SSR,PKTSSR 


#1,T158S0 
R4, TSOBCRS) 
PC, CHKTSSR 
aay 


RO,R1 
ERRNO, T1SSSR,PKTSSR 


TISBFR+20,R1 
R1,R2 


453% 

ERRNO, TLSAM2,EXPBREC 
R3 

R3,0255. 

40% 


PC. TSTLOOP 
63% 


T1SL00P 
TsT 


se 
sLOCAL STORAGE FOR THIS TEST 


.BLK 
TISPACKET; 


10-<, -TSV2E7> 


100204 
aa 


sPASS PACKET ADDRESS TO CONTR. 


sWAIT FOR SSR 

s6R, IF OK (CNO ERROR) 

sSAVE TSSR 

sTSSR NOT CORRECT 
TRAP 
WORD 
~ WORD 
WORD 

sSCOPE LOOP 
TRAP 

sSET UP FOR RAM READ 

s ISSUE RAM READ 

sWAIT FOR SSR TO SET 

s6R, IF OK (NO ERROR) 

sSAVE TSSR 

sTSSR NOT CORRECT 
TRAP 
WORD 
. WORD 
WORD 


sPICK UP REC'D DATA 
sCHECK WITH DATA WRITTEN 


s8R IF OK, DATA IN = DATA OUT 

sWRITTEN DATA NOT = TO READ 
TRAP 
- WORD 
. WORD 
- WORD 


sSCOPE LOOP 


TRAP 
sDROP RAM ADORESS POINTER 
sAT START YET 
sBR, IF MORE RAM TO CHECK 


SEQ 118 


T15SSR 
PKTSSR 


CsCLP1 


T1SSSR 


CsCLP1 


SNANNANNNNNNNN END SUBTEST NANANNAAANAAN 


2: 
TRAP 


:00 WE — saat ITERATE TEST ? 
sBRANCH I 
VEXECUTE T AGAIN 
sALL DONE THIS TEST 
TRAP 
. WORD 


sCOMMAND PACKET FOR TEST 


sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK 


CsESUB 


CSExtT 
L10047.-. 


sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 


C10 


TSVS - HARDW ACRO M1118 01-FEB-84 
TEST ay RAM FRERETOER TEGPRO MILIS 01-FEB-84 17:02 SEQ 119 
1496 033110 TLSDATA; 1CHARACTERISTICS DATA BLOCK 
1497 033110 033122" .WORD ‘TISBFR ;ADDRESS OF MESSAGE BUFFER 
1498 033112 000000 “WORD 0 
1499 033114 000400 “WORD 256. LENGTH OF MESSAGE BUFFER 
1500 033116 000000 000000 “WORD 0,0 
1501 033122 TISBFR: [BLKW 150, ;MESSAGE BUFFER 
o 
1503 {WRITE SUBSYSTEM MEMORY COMMAND PACKET 
t 
1506 033576 .BLKB :10-«, - TSV2E7> 
1508 033600 TISPK2: 
1509 033600 100206 WORD 100206 }WRITE SUB SYS MEM COMMAND, IE AND ACK 
1510 033602 033610' "WORD TiSBF2 ;ADORESS OF SELECT BLOCK DATA 
1511 033604 000000 "WORD 0 
1512 033606 000006 “WORD 6. :SIZE OF DATA PACKET 
1514 LEVEN 
1515 033610 T1SeF2 
1516 033610 000 115850: .BYTE 0 :BSELO AREA 
1517 033611 000 T158S1: |BYTE 0 ;8SEL1 AREA 
1518 033612 000000 T15S2:| :WwORD 0 SEL 2 AREA 
1519 033614 000000 T15S3: :WORD 0 DATA AREA 
1521 
1522 3° 
1523 }LOCAL TEXT MESSAGES FOR TEST 
ies ; 
1526 033616 127 122 111 TISSSR: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted’ 
1527 033672 127 122 111 T15AM2: |ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Feiled On All Ones Word Read Back’ 
1528 033778 127 122 111 TISAM3: :ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Failed On All Zeros Word Read Back’ 
1529 034075 127 122 111 T1SAM4: [ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Failed On Address Test: 
1530 034163 122 101 115 TST15I0: .ASCIZ "RAM Exerciser’ 
1531 LEVEN 
1532 - 
1533 ; 
1534 ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
1535 }WRITE SUBSYSTEM MEMORY COMMAND 
3 
1537 . 4 
1538 
1539 034202 TISREST: 
1540 034202 SAVREG ;SAVE THE REGISTERS 
1541 034206 012701 033100° MOV @TISPACKET,R1 START OF THE PACKET 
1542 034212 012721 100204 MOV @100204,(Ri)» }WRITE SUBSYSTEM MEM, WITH ACK, IE 
1543 034216 012721 033110° MOV @T1SDATA,CR1)> ADDRESS OF CHARAISTICS DATA BLOCK 
1544 034222 005021 CLR (R1)e ;EXTENDED ADORESS 
1545 034224 012721 000010 MOV 08. ,(R1)> }SIZE OF DATA BLOCK IN BYTES 
1546 034230 012721 033122° MOV OTISBFR,CR1)> ;ADORESS OF MESSAGE BUFFER 
1547 034234 005021 CLR (R1)s 
1548 034236 012721 000400 MOV 0256. ,(R1)+ LENGTH OF MESSAGE BUFFER 
1549 034242 005021 CLR (R1)s 
1550 034244 005011 CLR (R1) 
1551 034246 005037 033122° CUR T1SBFR ;CLEAR 1ST LOC IN MESSAGE BUFFER 
1952 034252 000207 RTS PC ;RE TURN 


D10 


TEX “aI*ERY'EcAE DLE rBgGRO MINIS ot-FeB-84 17:02 


034314 
034314 
034314 
034320 
034324 
034332 


012701 033600' 
100206 

012721 033610’ 

005021 

012721 000006 


012700 036372’ 
004737 016322’ 
012737 000012 002216' 


TISRT2: 


SAVREG sSAVE THE REGISTERS 
MOV @T1ISPK2,R1 sSTART OF THE PACKET 
MOV #100206 ,(R1)> sWRITE SUBSYSTEM MEM. WITH ACK, 
MOV OT1ISBF2,(R1)+ sADDRESS OF DATA BLOCK 
CLR C(R1)+ sEXTENDED ADDRESS 
MOV @6.,(R1L)> sSIZE OF DATA BLOCK IN BYTES 
CLR (R1)> 
CLR (R1)+ 
CLR (R1) 
RTS PC sRE TURN 
ENOTST 

L10047; 

TRAP 


-SBTTL TEST 5S: EXTENDED FEATURES SWITCH AND TIMERS A,8 


zee 
s TEST DESCRIPTION: 


This test verifies the Invert Extended Features function 
can logically invert the Extended features switch and 
that the internal timers A and B operate correctly. 


3 
o 
: 
; 
3 
; TEST STEPS: 
+ 
3 REPEAT FOR LOOPCNT 
; BEGIN 
3 Do Subtest 1 - Verify Extended Features Switch 
; Do Subtest 2 - Verify Timers A,B 
3 
j= 
BGNTST “ 
MOV @TST16ID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
ae MOV 010. ,LOOPCNT sPERFORM 10 ITERATIONS 


-SBTTL TEST 5S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


gee 
s TEST S: SUBTEST 1: 


SUBTEST DESCRIPTION: 


This subtest verifies that the Invert Sense of Extended features 
Switch function (Write Subsystem Memory ,Write Misc command) 
operates properly. 

First the state of the Extended Features switch is read in the 
message packet supplied by the write characteristics command. 
Then, the sense cf the switch is logically inverted. 

A Write characteristics command is executed and it is verified 
thet the Extended status register (XST4) is returned when 

in Extended mode, and not returned if not in extended mode. 

The subtest also verifies that specifying a Message Buffer 


SEQ 120 


IE 


CseTstT 


TSVS -_ HARDWARE TESTS 


1613 


104402 


E10 


TEST So SUBTEST 1. VERIFY CXTEMOED FEATURES TEST Oe “~ 


015604' 


037540' 
002222’ 
037720’ 
010472’ 


address with any of bits 21-19 ,set will cause the command to 
be rejected. 


TEST STEPS: 


BEGIN 
Write to TSSR register to soft initialize the controller 
Do WRITE CHARACTERISTICS to- check for Extended Features Switch 
_— Features Hardware Switch CLEAR 


(@ Verify Extended Features switch can be Inverted to SET «) 


ss Message Buffer Data Length NOT= 12. 


Then Print Error 


Do a WRITE C 
oe Buffer Date Length NOT= 10. Then Print Error 


Write to TSSR register to soft initialize the controller 
REPEAT FOR MESS. BUFFER ADDRESS bits <21:19> FROM O TO 7 
DO ea WRITE CHARACTERISTICS with a mess 


(* Verify Extended Features switch can be Inverted to CLEAR «) 
Do Write Subsystem Write Miscellaneous to CLEAR Extended Features. 
ACTERISTICS without an extended characteristic word 


SEQ 121 


Do Write Subsystem Write Miscellaneous to SET Extended Features. 
DO a WRITE CHARACTERISTICS with an extended characteristic word 

C are the controller ram to the extended characteristic word 

If Date word in controller ram NOT= to word sent Then Print Error 


(# Verify Function Reject when Message Buffer 21-19 are non-zero +) 


address bit<21:19> non-zero 


If TSSR termination code NOT= Function Reject Then Print Error 
END -REPEAT 
ENO 
BGNSUB TW AAAALAAAAAL —— SUBTEST /////////7/ 
TS.1: 
TRAP CsBSUB 
5$: 
5 Write to TSSR register to soft initialize the controller 
JSR PC,SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 
Bcs 10% 3BR IF SOFT INIT OKAY 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERROF ERRNO, SF IERR, SF IMSG sDEVICE FATAL DURING INIT 
TRAP CSERDF 
-WORD 500 
-WORD SFIERR 
. WORD SF IMSG 
3 Do WRITE CHARACTERISTICS to check for Extended Features Switch 
10$: JSR PC, T1I6REST sRESTORE PACKET DEFAULTS 
CLR FATFLG sCLEAR FATAL ERROR FLAG 
MOV @TI6PACKET ,R4 sGET THE ADDRESS OF COMMAND PACKET 
JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
FORCERROR 12$ :Q8DFORCE ERROR IF FORCER=1 
Bcs 158% ;8R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO : 
12$: ERROF ERRNO, T16SSR,PKTSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 


F10 


TSVS - HARDWARE TESTS MACRO :02 
Tee SO MCUBTEST G) VERIFT ERTENBED FEATURES TEST: SEQ 122 

034416 000765 .WORD 501 
034420 036442' .WORD T16SSR 
034422 011656’ .WORD PKTSSR 

1663 034424 005237 002222’ INC FATFLG 3SET FATAL ERROR FLAG 

1664 034430 15$; CKLOOP sLOOP ON ERROR, IF FLAG SET 

1665 034430 104406 TRAP CSCLP1 

1666 3 If Extended Features Hardware Switch Clear then: 

1667 ; (# Verify Extended Features switch can be Inverted to SET «) 

1668 3 REPEAT F TEST PATTERNS IN TSTBLK TABLE 

1669 034432 012701 037742’ MOV @T16BFR,R1 sMESSAGE BUFFER ADDRESS 

1670 034436 032761 000200 000012 BIT ex2. EXTF, xST2CR1) sEXTENDED FEATURES SWITCH CLEAR? 

1671 034444 001402 BEQ 20% 36R IF YES 

1672 034446 000137 035016’ JMP 200% Hy 

1673 034452 012703 002764’ 208: MOV @TSTBLK+10. ,R3 sSTART OF TEST DATA 

ot 3 Do Write Subsystem Write Miscellaneous to SET Extended Features. 

16 

1676 034456 004737 037700' JSR PC, TI6SEXT ;SETUP PACKET FOR WRITE MISC INVERT 

1677 034462 012704 040000’ MOV @T16PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

1678 034466 010465 000000 MOV R4, TSDBCRS) 3SET THE PACKET — TO EXECUTE 

1679 034472 004737 016146' JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

1680 034476 FORCERROR 323 ;8@DFORCE ERROR IF FORCER=1 

1681 034512 103407 BCS 40s 3;6R IF CARRY SET (GOOD RETURN) 

1682 034514 ©10001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

1683 034516 NEXT. ERRNO 

1684 034516 323: ERRDOF  ERRNO,T162SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
034516 1064455 TRAP CSEROF 
034520 000766 -WORD 502 
034522 036477’ . WORD T162SSR 
034524 011656' .WORD PKTSSR 

1685 034526 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 

1686 034532 40$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

1687 034532 104406 TRAP CSCLP1 

1688 3 DO a WRITE CHARACTERISTICS with an extended characteristic word 

1689 034534 012737 125252 002312’ MOV #125252 ,DATA ;SETUP TEST DATA FOR EXTENDED WORD 

1690 034542 012704 037720' MOV @TI6PACKET,R4 ;GET THE ADORESS OF COMMAND PACKET 

1691 034546 012764 000020 000006 MOV #16. ,PKBCNT(R4) sSTORE MESSAGE PACKET SIZE 

1692 034554 013737 002312’ 037740' MOV DATA, TI6DATA+10 sSTORE TEST DATA IN EXTENDED WORD 

1693 034562 004737 010472’ JSR PC ,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 

1694 034566 FORCERROR 42% s8@0FORCE ERROR IF FORCER=1 

1695 034602 103407 bcs 50$ 3;6R IF CARRY SET (GOOD RETURN) 

1696 034604 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

1697 034606 NEXT. ERRNO 

1698 034606 42%: ERRDF  ERRNO,T16SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
034606 104455 TRAP CSERDF 
034610 000767 -WORD 503 
034612 036442’ . WORD T16SSR 
034614 011656’ .WORD PKTSSR 

1699 034616 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 

1700 034622 508: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
034622 104406 TRAP CsCLPl 

1701 3 If the TSBA Address Register NOT= Expected Then Print Error 

1702 034624 016501 000000 MOV TSBACRS),.R1 3GET TSBA REGISTER CONTENTS 

1703 034630 012702 037742' MOV @Ti6BFR, R2 START OF THE DATA BUFFER 

1704 034634 062702 000020 623: ADD #16. ,R2 ;EXPECTED CONTENTS OF TSBA 


1705 034640 FORCERROR —— 72$,NCTSSR s@@OFORCE ERROR IF FORCER=1 


TSVS -_HARDWARE TESTS MACRO M1113 0 
TEST S: SUBTEST 1: VERIFY EXTENDED FE 


1706 034650 020102 
1707 034652 001404 


034654 104456 
034656 000770 
034660 036610’ 
034662 015304' 


034664 104406 

- 1713 034666 012704 037730’ 

1714 034672 004737 011034’ 
1716 034712 103404 
034714 104456 
034716 000771 
034720 004741’ 
034722 015320’ 
034724 104406 

1721 034726 012702 037742’ 


1722 034732 016201 000002 
1723 034736 012702 000014 


1731 034770 004737 015604: 


1736 035012 000137 035176’ 


1741 035016 004737 037700’ 
1742 035022 012704 040000’ 


Avee 4 


728: 


923: 


1128: 


1208: 


1258: 


URES TE 


(« 


G10 


37:02 SEQ 123 
CMP R1,R2 sCOMPARE EXPECTED TO RECEIVED 

BEQ 80$ TERROR IF NOT EQUAL 

NEXT .ERRNO 

ERRHRD ERRNO, T16TSBA,EXPREC sPRINT THE ERROR € EXPD/RECV 


CSERHRD 


504 
44 . WORD T16TSBA 
ot -WORD EXPREC 
CKLOOP ~*~ sLOOP ON ERROR, IF FLAG SET 
‘ TRAP CSCLP1 
Compare the controller ram to the extended ome ene word 
If Data word in controller ram NOT= to word sent Then Print Error 


MOV * @TI6DATA,R4 3GET CHARACTERISTIC DATA ADDRESS 
JSR PC, CKRAM2 sD0ES RAM DATA EQUAL DATA SENT? 
FORCERROR 923 sQQ0FORCE ERROR IF FORCER=1 
BcSs 1008 3;6R IF YES 
NEXT .ERRNO 
ERRHRD ERRNO,PKTRAM,RAMERR sREPORT THE RAM ERROR(S) 
T CSERHRD 
. WORD Ss 
- WORD PK TRAM 
. WORD RAMERR 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
If Mess oer Data Length NOT= 12. Then Print Error 
MOV @T16BFR,R2 sGET MESSAGE BUFFER ADDRESS 
MOV 2(R2).Ri ;GET RECV DATA FIELD LENGTH 
MOV 012. ,R2 3sGET EXPD DATA FIELD LENGTH 
FORCERROR 112$,NOTSSR s@GOFORCE ERROR IF FORCER=1 
CMP R1,R2 sCOMPARE EXPECTED TO RECEIVED 
BEQ 12038 TERROR IF NOT EQUAL 
NEXT. ERRNO 
ERRHRD ERRNO, TI6LEN,EXPREC sPRINT THE ERROR € EXPD/RECV 
TRAP CSERHRD 
-WORD 506 
. WORD T16LEN 
-WORD EXPREC 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSsCLP1 
JSR PC ,SOF INIT ;WRITE TO TSSR TO yo INITIALIZE 
BcS 125% 3BR IF SOFT INIT OKAY 
MOV RO,.R1 ;SAVE CONTENTS OF TSSR 
ERROF ERRNO, SF IERR, SF IMSG sDEVICE FATAL OURING INIT 
TRAP CSEROF 
WORD 506 


“WORD SFIERR 
“WORD  SFIMSG 


TRAP CsCLP1 


CKLOOP ;LOOP IF SELECTED 

JMP 300$ ; 

Verify Extended Features switch can be Inverted to CLEAR «) 

Do Write Subsystem Write Miscellaneous to CLEAR Extended Features. 


JSR PC, T16SEXT sSETUP PACKET FOR WRIiC MISC INVERT 
MOV oTiePK2, R4 sGET WRITE SUBSYSTEM COMMAND PACKET 


H10 


TSVS -_ HARDWARE TESTS :02 4 
TEST 5: SUBTEST 1: VERIFY Pr esTeneeD FEATURES ote bt! =e ss 

1743 035026 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

1744 035032 004737 016146’ JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

1745 035036 FORCERROR 232% s@@DFORCE ERROR IF FORCER=1 

1746 035052 103407 Bcs 2408 s6R IF CARRY SET (GOOD RETURN) 

1747 035054 010001 o.: MOV RO,R1 sSAVE CONTENTS OF TSSR 

1748 035056 bs NEXT .ERRNO 

1749 035056 232%: ERROF ERRNO, T162SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
035056 104455 TRAP CSEROF 
035060 000773 . WORD 507 
035062 036477' «WORD T162SSR 
035064 011656’ . WORD PKTSSR 

1750 035066 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 

1751 035072 2408: CKLOOP sLOOP ON ERROR, IF FLAG SET 

1732 035072 104406 TRAP CSCcLPl 

1753 3 DO a WRITE CHARACTERISTICS without an extended characteristic word 

1754 035074 012704 037720’ MOV @TLEPACKET ,R4& ;GET THE ADDRESS OF COMMAND PACKET 

1755 035100 012764 000016 000006 MOV #14. ,PKBCNT(R4) sSTORE MESSAGE PACKET SIZE 

1756 035106 004737 010472’ JSR PC,.WRICHR 300 WRITE CHARACTERISTICS COMMAND 

1757 035112 FORCERROR 2428 sQ@8D0FORCE ERROR IF FORCER=1 

1758 035126 103407 6cs 2508 ;6R IF CARRY SET (GOOD RETURN) 

1759 035130 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

1760 035132 NEXT .ERRNO 

1761 035132 242%: ERRDF ERRNO, T16SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
035132 104455 TRAP CSEROF 
035134 000774 -WORD 508 
035136 036442’ . WORD T16SSR 
035140 011656’ . WORD PKTSSR 

1762 035142 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 

1763 035146 2508: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
035146 104406 TRAP CsCLP1 

1764 3 =a ee Date Length NOT= 10. Then Print Error 

1765 035150 013701 037744’ R+2,R ;GET RECV DATA FIELD LENGTH 

1766 035154 012702 000012 nov #10. ,R2 ;GET EXPO DATA FIELD LENGTH 

1767 035160 020102 CMP R1,R2 sCOMPARE EXPECTED TO RECEIVED 

1768 035162 001404 BEQ 270% sERROR IF NOT EQUAL 

1769 035164 NEXT .ERRNO 

1770 035164 262%: ERRHRD ERRNO, TI6LEN,EXPREC sPRINT THE ERROR € EXPD/RECV 
035164 104456 TRAP CSERHRD 
035166 000775 . WORD 509 
035170 036712’ . WORD TI6LEN 
035172 015304’ . WORD EXPREC 

1771 035174 270%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
035174 104406 TRAP CsCLP1 

1772 

1773 

1774 ; (* Verify Function Reject when Message Buffer 21-19 are non-zero +) 

1775 3 Write to TSSR register to soft initialize the controller 

1776 035176 3008: 

1777 ; REPEAT FOR MESSAGE BUFFER ADDRESS bits <21:19> FROM O TO 7 

1778 035176 012737 000001 002312’ 320%: MOV @1,DATA sSTART AT BITS<21:19>2001 

1779 A DO e WRITE CHARACTERISTICS with a message address bit<21:19> non-zero 

1780 035204 325%: 

1781 035204 012704 037720' MOV @TI6PACKET,R4 3GET THE ADDRESS OF COMMAND PACKET 

1782 035210 012764 000016 000006 MOV #14, ,PKBCNT(R4) sSTORE MESSAGE PACKET SIZE 

1783 035216 013700 002312’ MOV DATA,RO ;GET TEST DATA 

1784 000002 REPT 3 


TSVS - HARDWARE 


035372 


035376 
035376 
035376 
035376 


TESTS MACRO M1113 O01-FEB-84 17:02 
TEST S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


037732° 
000000 
016060" 


002222’ 


000016 
000006 


002312' 
002312" 


035204" 


002222’ 
017014' 


000007 


3428: 


35238: 


3608: 


3 
3708: 


460$: 


ASL RO 

-ENOR 

MOV RO, TIG6DATA+2 

MOV R4, TSOBCRS) 
WAIT 


NEXT .ERRNO 
ERROF &RPNO, 116SsR, PKTSSR 


INC FATFLG 
CKLOOP 


SEQ 125 


sSHIFT INTO BITS 21:19 


sSTORE BUFFER ADDRESS BITS 21:19 
sSET THE PACKET ADDRESS TO EXECUTE 


sWAIT FOR SSR 
s;@@OFORCE ERROR IF FORCER=1 

s6R IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 
TRAP 
«WORD 510 
. WORD 
«WORD PKTSSR 

s;SET FATAL ERROR FLAG 


sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


If TSSR pororastten code NOT= Function Reject Then Print Error 


MOV TSSRCRS),R1 

MOV R1,R2 

BIC @TERCLS,R2 

BIS @TSREJ,R2 
FORCERROR . 352$,NOTSSR 


CMP R1,R 
BEQ 360% 
NEXT .ERRNO 


ERRHRD ERRNO, TI6REJ,PKTSSR 


CKLOOP 
FORCEXIT 370$ 
INC DATA 


CMP DATA,@7 
BHI 370% 

JMP 325% 
END -RKEPEAT 


ENOSUB 


TST FATFLG 
BEQ 460% 
JSR PC ,CKOROP 


;GET RECV TSSR 

sCOPY RECV TSSR 

sCLEAR TC<2:0> EXPD 

sSET EXPD TC<2:0>= FUNCTION REJECT 
s@@OFORCE ERROR IF FORCER=1 

3sEXPD EQUAL RECV? 


:;BR IF YES 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERHRD 
«WORD 511 
-WORD T16REJ 
PKTSSR 


. WORD 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


;GET NEXT TST PATTERN 
;DONE ALL DATA? 

36R IF YES 

300 ANOTHER TEST PATTERN 


s////111111/7 END SUBTEST ////////// 
L10054: 


TRAP CsESUB 


sANY FATAL ERRORS ? 
;BRANCH IF NOT 
sTRY TO DROP THE UNIT 


-SBTTL TEST 5S: SUBTEST 2: VERIFY TIMERS A,B 


$e? 

s TEST S: SUBTEST 2: 

: 

; SUBTEST DESCRIPTION: 


J10 


TSVS - HARDWARE TESTS MACRO M1113 O1-FEB-84 17:02 SEQ 126 
TEST 5: SUBTEST 2: VERIFY TIMERS A,B 
1830 : This subtest verifies that timers A,B can be reset 
1831 3 end thet Timer A is twice the frequency of Timer 8. 
1832 : Timer A has @ period of 25 microseconds and Timer 8 
1833 3 hes a period of 50 microseconds. The timers ere 
rt ; checked et 1, 28, 53, and 78 micoseconds. 2 
: 
1836 ; TEST STEPS: 
1837 3 
1838 3 
1839 3 Write to TSSR ister to soft initielize the controller 
1840 3 Do WRITE CHARACTERISTICS to setup ea Message Buffer 
1841 3 (* Verify Timers A,B efter RESET TIMER with O microsecond delay «) 
1942 3 Do @ Write Control RESET TIMER with 1 microsecond delay 
1833 3 Do ea Write Subsystem READ STATUS 
1844 ; If Timer A NOT= 0 Then Print Error 
1845 3 If Timer 8 NOT= O Then Print Error 
1846 3 (* Verify Timers A,B after RESET TIMER with 28 microsecond delay «) 
1847 3 Do e Write Control RESET TIMER with 28 microsecond delay 
1848 3 If Timer A NOT*= 1 Then Print Error 
1849 : If Timer 8 NOT= 1 Then Print Error 
1850 3 Do e Write Control RESET TIMER with 53 microsecond delay 
1851 ; If Timer A NOT= 0 Then Print Error 
1852 F If Timer 8 NOT= 1 Tren Print Error 
1853 ; Do ea Write Control RESET TIMER with 78 microsecond delay 
1854 ; If Timer A NOT= 1 Tren Print Error 
oone : If Timer 8 NOT= O Then Print Error 
Ree 
1857 035412 BGNSUS 3444///1///77/ BEGIN SUBTEST S///4///4//7/ 
035412 TS.2: 
035412 104402 TRAP Cs6SuU8 
1858 3 Write to TSSR register to soft initialize the controller 
1859 035414 5$: 
1860 035414 004737 015604’ JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 
1861 035420 103405 6cs 10$ ;8R IF SOFT INIT OKAY 
1862 035422 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
1863 035424 ERROF ERRNO, SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
035424 104455 TRAP CSERDF 
035426 000777 .WORD 511 
035430 003646’ . WORD SFIERR 
035432 011644’ -WORD SFIMSG 
1864 : Do WRITE CHARACTERISTICS to setup a Mes Buf fer 
1865 035434 004737 037540’ 10$: JSR PC, TI6REST sRESTORE PACKET DEFAULTS 
1866 035440 005037 002222’ CLR FATFLG ;CLEAR FATAL ERROR FLAG 
1867 035444 012704 037720' MOV @TI6PACKET,R4& sGET THE ADDRESS OF COMMAND PACKET 
1868 035450 012764 000010 000006 MOV 08. ,PKBCNT(R4) sMESSAGE PACKET SIZE NO EXTEND 
1869 035456 004737 010472’ JSR PC,WRICHR 300 WRITE CHARACTERISTICS COMMAND 
1870 035462 FORCERROR 12$ ;8@0FORCE ERROR IF FORCER=1 
1871 035476 103407 BcsS 15$ ;8R IF CARRY SET (GOOD RETURN) 
1872 035500 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
1873 035502 NEXT .ERRNO 
1874 035502 12$: ERRDOF ERRNO, T16SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
035502 104455 TRAP CSERDF 
035504 001000 -WORD 512 
035506 036442’ ~ WORD T16SSR 
035510 011656’ -WORD PKTSSR 
1875 035512 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 


1876 035516 15%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
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104406 
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000901 

036362’ 
037652’ 
040000' 


000000 
016146' 


002222' 


000010 
000004 
037762’ 
000002 
177763 


000001 

036364' 
037652’ 
040000' 


000000 
016146’ 


328: 


72s: 


112$: 


SEQ 127 


TRAP CSCLP1 


(* Verify Timers A,B after RESET TIMER with 1 microsecond delay *) 
x a Write Control RESET TIMER with 1 microsecond delay 


@MsS .RSD,RO 
MOV 716001 ,R1 
JSR PC, TL6WMISC 


PC,.CHKTSSR 
FORCERROR 32s 
BCS 40$ 
MOV RO,R1 
NEXT .ERR 


NO 
ERRDF ERRNO,T162SSR,PKTSSR 


INC FATFLG 
CKLOOP 


sRESET TIMER yor 
31 MICROSECOND DELA 
sSETUP T16PK2 COMMAND PACKET 
;GET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s@Q0FORCE ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
-WORD 513 
«WORD 1162SSR 
«WORD PKTSSR 
;SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


If Timer A NOT= O Then Print Error 
If Timer 8 NOT= O Then Print Error 


CLR Re 

BIC @S2.ATIM,R2 

BIC #S2.BTIM,R2 

MOV rok 

MOV 2(RO),.R 

BIC orC<S2, ATIM!S2. BTIM>,R1 
a . 72$,NOTSSR 


. ERRNO 
ERRHROD ERRNO, T16TO1, TIMEXP 


CKLOOP 


sINIT EXPD 

; TIMER A EXPD=0 
sTIMER B EXPD=0 

;GET RECV READ STATUS 
sGET RECV BYTE 2 

| SAVE TIMER A:B RECV ONLY 
:880 

sEXPD EQUAL RECV? 

;8R IF YES 


sREPORT ERROR 
TRAP CSERHRD 


-WORD 514 

«WORD T16TO1 

.WORD TIMEXP 
s;LOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


Do a Write Control RESET TIMER with 28 microsecond delay 
MOV @MsS ..RSO,RO 


MOV T16028,R1 

JSR PC, TLEWMISC 
MOV @T16PK2,R4 
MOV R4, TSOBCRS) 
JSR PC,CHKTSSR 


NEXT .ERRNO 
ERRDOF  ERRNO,T162SSR,PKTSSR 


sRESET TIMER COMMAND 
328 MICROSECOND DELAY 
sSETUP T16PK2 COMMAND PACKET 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s;@Q0FORCE ERROR IF FORCER=1 
BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 


;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 


$15 
-WORD T162SSR 
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035740 
035742 
035746 
035746 


035750 


011656’ 
005237 


104406 


020201 
001404 


104456 
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002222' 


000010 
000004 
037762' 
000002 
177763 


000001 

036366‘ 
037652’ 
040000' 


000000 
.016146' 


002222' 


000010 
000004 
037762‘ 
000002 
177763 
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at 01-FEB-84 17:02 SEQ 128 
«WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
120$: CKLOOP sLOOP ON ERROR, IF FLAG SET 


172%: 


212%: 


2723: 


TRAP = C$CLP1 
If Timer A NOT= 1 Then Print Error 
If Timer B NOT= 1 Then Print Error 


CLR Re sINIT EXPD 

BIS @S2.ATIM,R2 sTIMER A EXPD=1 

BIS @S2.B8TIM,R2 sTIMER B EXPD=1 

MOV @T16BFSTA,RO sGET RECV READ STATUS 


MOV 2(RO),R1 sGET RECV BYTE 2 
BIC @tC<S2.ATIM!S2. BTIM>,R1 SAVE TIMER A:B RECV ONLY 


FORCERROR 172$,NOTSSR 3880 

CMP R2,R1 ;EXPD a RECV? 

BEQ 180$ 3;BR IF YE 

NEXT .ERRNO 

ERRHRD ERRNO, T16T28, TIMEXP sREPORT ERROR 
TRAP CSERHRD 
. WORD 516 
«WORD 1T16T28 
-WORD TIMEXP 

CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 

Do a Write Control RESET TIMER with 53 microsecond delay 

MOV @Ms .RSD,RO sRESET TIMER COMMAND 

MOV T16053,R1 353 MICROSECOND DELAY 

JSR PC, T16WMISC sSETUP T16PK2 COMMAND PACKET 

MOV @T16PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSDOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

PC,CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 212$ ;@@0FORCE ERROR IF FORCER=1 

BCS 2208 ;BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

NEXT. ERRNO 

ERRDF ERRNO,T162SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 

i TRAP CSEROF 

«WORD 517 
«WORD T162SSR 
WORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
If Timer A NOT= O Then Print Error 
If Timer 8 NOT= 1 Then Print Error 


CLR Re sINIT EXPO 

BIC #S2.ATIM,R2 ;TIMER A EXPD=0 

BIS #S2.BTIM,R2 sTIMER B EXPD=1 

MOV @T16BFSTA,RO sGET RECV READ STATUS 
MOV 2(RO),R1 sGET RECV BYTE 2 

BIC @tC<S2.ATIM!S2.BTIM>,R1 ;SAVE TIMER A:B RECV ONLY 
FORCERROR 272$,NOTSSR 380 

CMP R2,R1 sEXPD EQUAL RECV? 

BEQ 280% :BR IF YES 

NEXT .ERRNO 

ERRHRD ERRNO,T16153, TIMEXP sREPORT ERROR 


TRAP CSERHRD 


Test 
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TESTS MACRO M 01-FEB-84 17:0 
ES1 So VerteT TEMAS A,B ee Oe 17:02 oe0 use 

036156 1006 » WORD 518 

036160 037340’ ~WORD T16T53 

036162 015362’ .WORD TIMEXP 

036164 2805: CKLOOP ;LOOP ON ERROR, IF FLAG a. 

036164 104406 TRAP CSCLP1 
F Do a Write Control RESET TIMER with 78 microsecond delay 

036166 012700 000001 MOV @Ms .RSD,RO sRESET TIMER COMMAND 

036172 013701 036370’ MOV 716078, RL :78 MICROSECOND DELAY 

036176 004737 037652’ JSR PC, TL6WMISC sSETUP T16PK2 COMMAND PACKET 

036202 012704 040000' MOV OTI6PK2,.R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

036206 010465 000000 MOV R4,TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 

036212 004737 016146' JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

036216 FORCERROR 312$ sQQDFORCE ERROR IF FORCER=1 

036232 103407 BCS 320 ;6R IF CARRY SET (GOOD RETURN) 

036234 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

036236 NEXT .ERRNO 

036236 312s: ERROF ERRNO, T162SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 

036236 104455 TRAP CSEROF 

036240 001007 - WORD 519 

036242 036477' ~WORD T162SSR 

036244 011656’ .WORD PKTSSR 

036246 005237 002222' INC FATFLG ;SET FATAL ERROR FLAG 

036252 3208: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

036252 104406 TRAP CSCLP1 
; If Timer A NOT= 1 Then Print Error 
: If Timer 8 NOT= O Then Print Error 

0 CLR R2 sINIT EXPD 

036256 052702 000010 BIS @S2.ATIM,R2 sTIMER A EXPD=1 

036262 042702 000004 BIC #S2.BTIM,R2] sTIMER B EXPD=-0 

036266 012700 037762' MOV @T16BFSTA,RO 3;GET RECV READ STATUS 

036272 016001 000002 MOV 2CRO),R1 ;sGET RECV BYTE 2 

036276 042701 177763 BIC @tC<S2.ATIM!S2.BTIM>,R1 ;SAVE TIMER A:B RECV ONLY 

036302 FORCERROR 372$,NOTSSR ; 880 

036312 020201 ° sEXPD EQUAL RECV? 

036314 001404 BEQ 380$ ;BR IF YES 

036316 NEXT .ERRNO 

036316 372s: ERRHRD ERRNO,T161T78, TIMEXP ;REPORT ERROR 

036316 104456 TRAP CSERHRD 

036320 001010 . WORD 520 

036322 037440' .WORD T161T78 

036324 015362’ . WORD TIMEXP 

036326 380$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

036326 104406 TRAP CSCLP1 

036330 ENOSUB 344/444 114404 END SUBTEST S/S/4/////7/ 

036330 L10055: 

036330 104403 TRAP CsESUB 

036332 005737 002222' TST FATFLG ;ANY FATAL ERRORS ? 

036336 001402 BEQ 460$ ;BRANCH IF NOT 

036340 004737 017014' JSR PC ,CKDROP sTRY TO OROP THE UNIT 

036344 004737 016270’ 460$: JSR PC, TSTLOOP :SHOULD WE DO ITERATIONS? 

036350 103002 Bcc 465$ ;68R IF NO 

036352 000137 034332’ JMP T16LO0P ;LOOP UNTIL ITERATIONS DONE 

036356 465$: 
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TEST Ss: SUBTEST 2: VERIFY TIMERS A,B 
2005 036356 ‘ EXIT TST 347////7//7// EXIT TEST SS/SS/4///47/ 
036356 104432 TRAP CSExIT 
036360 001534 «WORD 1L10053-. 
2006 
2007 3+ 
2008 sLOCAL STORAGE FOR THIS TEST 
2009 s@ 
2010 036362 000001 T16001: -WORD 1 31 MICROSECOND DELAY CACTUALLY .8 MIC) 
2011 036364 000040 T16028: -WORDB 40 328 MICROSECOND DELAY (.8 MICROS PER) 
2012 036 000076 T16053: -WORD 76 353 MICROSECOND 
oe 036370 000142 716078: -WORD 142 378 MICROSECOND 
3* 
2015 , sLOCAL TEXT MESSAGES FOR TEST 
5017 ai 
2018 036372 105 A70 164 TST16I0: -ASCIZ ‘Extended Features Switch and Timers A,B’ 
2019 036442 127 122 111 T16SSR: .ASCIZ ‘WRITE CHARACTERISTICS Failed’ 
2020 036477 127 122 111 T162SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Misc) Failed’ 
2021 036543 127 122 111 T163SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read Status) Failed’ 
2022 036610 102 165 163 TI6TSBA:.ASCIZ ‘Bus Address Register (TSBA) Incorrect after Write Characteristics’ 
2023 036712 104 141 164 T16LEN: .ASCIZ ‘Data Field L th in Message Buffer Incorrect after Write Characteristics’ 
e 2024 037024 124 123 123 TI6REJ:.ASCIZ ‘TSSR Function Reject Not Returned When Non-Existent Buffer Address Specifie | 
2025 037141 124 151 155 T16T01:.ASCIZ ‘Timer A,B Incorrect after Reset Timer with 1 microsecond Delay’ 
2026 037240 124 151 15S 1T16T28:.ASCIZ ‘Timer A,B Incorrect after Reset Timer with 28 microsecond Delay’ 
2027 037340 124 151 155 116T53:.ASCIZ ‘Timer A,B Incorrect after Reset Timer with 53 microsecond Delay’ 
eee 037440 124 151 155 ingichinamae ‘Timer A,B Incorrect after Reset Timer with 78 microsecond Delay’ 
2030 
2031 :¢ 
2032 ; SET DEFAULT PACKET 
2033 3° 
2034 037540 T1I6REST: 
2035 037540 012700 037720' MOV @T16PACKET,RO ;PACKET ADDRESS 
2036 037544 012720 100004 MOV #100004 ,(RO)+ ;WRITE CHARACTERISTICS WITH ACK 
2037 037550 012720 037730’ MOV #T16DATA,(RO)+ sADDRESS OF CHAR DATA BLOCK 
2038 037554 005020 CLR CRO)+ sEXTENDED ADDRESS 
2039 037556 012720 000012 MOV #10. ,CRO)+ sSIZE OF MESSAGE PACKET 
2040 037562 012720 037742’ MOV @T16BFR,CRO)+ sMESSAGE BUFFER ADDRESS 
2041 037566 5020 CLR CRO)>+ ;CLEAR EXTENDED BUFFER ADDRESS 
2042 037570 012720 000024 MOV #20. ,CRO)+ ;LENGTH OF MESSAGE BUFFER 
2043 037574 005020 CLR CRO)+ ;CLEAR ESS,ENB,EAI,ERI 
2044 037576 005010 CLR CRO) ;CLEAR EXTENDED FEATURES WORD 
2045 037600 005037 037742’ CLR T168FR ;CLEAR 1ST LOCATION IN MESSAGE BUFFER 
2046 037604 000207 RTS Cc F 
2047 
2048 3 
2049 ; CLEAR MESSAGE BUFFER 
2050 :- 
2051 037606 T16CLRBUF : Hy 
2052 037606 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
2053 037612 012701 037742’ MOV #T1L6BFR,R1 ;GET MESSAGE BUFFER ADDRESS 
2054 037616 012702 000026 MOV #T16B8END -T16BFR,R2 ;SIZE OF MESSAGE BUFFER IN BYTES 
2055 037622 105021 10$: CLRB CR1)>+ ;CLEAR A BYTE 
2056 037624 005302 DEC R2 ; DONE ? 
2057 037626 003375 BGT 10$ ;BR IF NO 
2058 037630 000207 RTS PC ;RETURN 


. 
Ne 
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037632 


2064 037632 


037636 
037642 
037646 
037650 


037652 


037676 


037700 
037700 
037704 
037710 
037714 


037716 


037720 
037720 
037722 
037724 
037726 


037730 
037730 
037732 
037734 
037736 
037740 


004737 037606’ 
012700 040010’ 
112720 000005 
105010 
000207 


004737 037606: 
012702 040010’ 
112722 000010 
110022 
110112 
000207 


012700 040010’ 
112720 000010 
112710 000200 
000207 


100004 
037730' 
000000 
000012 
037742’ 
000000 
000024 
000000 


000000 
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SEQ 131 
3? 
; SETUP T16PK2 PACKET FOR READ STATUS 
3 - 
T16SRD: 
JSR PC, TL6ECLRBUF :CLEAR MESSAGE BUFFER 
MOV @T16DT2,RO ;WRITE SUBSYSTEM DATA BUFFER 
MOVB OPW.RDSTATUS,(RO)> sSTORE READ STATUS COMMAND IN BSELO 
CLRB = (RO) ;CLEAR BSEL1 
RTS PC RETURN 
3° 
: SETUP T16PK2 PACKET FOR WRITE MISC. 
: 
3 INPUT: 
; RO CONTAINS WRITE MISC FUNCTION CODE (BSEL1) 
; Ri CONTAINS DELAY (TIMES 800 NS) FOR BSEL2 
3 - 
TI6OWMISC: 
SAVREG sSAVE R1-RS UNITL NEXT RETURN 
JSR PC, TLECLRBUF sCLEAR MESSAGE BUFFER 
MOV @Ti60T2,R2 sWRITE SUBSYSTEM DATA BUFFER 
MOVB OPW.WMISC,(R2)- sSTORE WRITE MISCELLANEOUS IN BSELO 
MOVB = RO, (R2)> sSTORE WRITE MISC CODE IN BSEL1 
MOVB = R11, (R2) sSTORE DELAY (RESET TIMER) IN BSEL2 
RTS PC ;RE TURN 
3° 
; SETUP T16PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 
og 
TI6SEXT: 
MOV @T16DT2,R0 sWRITE SUBSYSTEM DATA BUFFER 
MOVB OPW.WMISC,(RO)> sSTORE WRITE MISCELLANEOUS IN BSELO 
MOVB oMS.EXT,CRO) sSTORE INVERT EXTENDED FEATURES IN BSEL1 
RTS PC ;RE TURN 
.BLKB =. 10-«. - TSV2E7> 
3 
;WRITE CHARACTERISTICS COMMAND PACKET 
3 
TLOPACKET: sCOMMAND PACKET FOR TEST 
.WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 
- WORD TL6DATA sADDRESS OF CHARACTERISTICS BLOCK 
[WORD 10. sMESSAGE PACKET SIZE 
TLEDATA: sCHARACTERISTICS DATA BLOCK 
- WORD TL6BFR sADORESS OF MESSAGE BUFFER 
‘WORD 20, sLENGTM OF MESSAGE BUFFER 
‘WORD O s€SS,ENB, EAI, ERI 
‘wORD 0 sEXTENDED FEATURES WORD 


sMESSAGE BUFFER 


Cil 


TSVS -_HAR TEST -FEB - 
Test Se OR TE ET SS Jen rf OCR PAS IE gO! -FEB-84 17:02 SEQ 152 
e119 
2120 037742 TI6BFR;: sBEGIN MESSAGE BUFFER 
2121 037742 000000 . WORD 0 sMESSAGE TYPE 
2122 037744 000000 » WORD fe) sDATA FIELD LENGTH 
2123 037746 000000 » WORD 0 sRBPCR 
2124 037750 000000 . WORD 0 sXSTO 
2125 037752 000000 .» WORD 0 s¥ST1 
2126 037754 000000 . WORD 0 3xST2 
2127 037756 000000 . WORD 0 +XST3 
2128 037760 000000 . WORD 0 +XST4 CALWAYS PRESENT FOR WRITE SUBSYSTEM 
2129 037762 TI6BFSTA: .BLKB 6 sREAD STATUS AND WRITE FIFO BUFFER 
si30 037770 _ TL6BEND: sENO OF MESSAGE BUFFER 
F 

atah sWRITE SUBSYSTEM READ STATUS COMMAND PACKET 
21 3 
2135 037770 .BLKB 10-<, -TSV2E7> 
2137 040000 T16PK2: 
2138 040000 100006 . WORD P ,WRTSUB!P.ACK sWRITE SUBSYSTEM WITH ACK 
2139 040002 040010' . WORD T160T2 sLOW ADDRESS OF DATA BLOCK 
2140 040004 000000 . WORD 0 sHIGH ADORESS OF DATA BLOCK 
Stas 040006 000012 . WORD 10. sMINIMUM MESSAGE PACKET SIZE 
2143 040010 T160Te: sDATA BLOCK 
2144 040010 000 .BYTE 0 sBSELO 
2145 040011 000 BYTE 0 sBSEL1 
2146 040012 000000 WORD 0 sSEL2 
Sos 040014 BLKB 64 sWRITE FIFO DATA OUTPUT BUFFER 
2149 
2150 040114 ENOTST 

040114 L10053: 
2151 040114 104401 TRAP CSETST 
2152 -SBTTL TEST 6: FIFO EXERCISER 
2153 5es 
te 3; TEST DESCRIPTION: 
2156 ; This test uses the Write Subsystem Memory command to 
2157 ; verify the controller's FIFO and associated status and 
2158 3 control logic. 
2159 3 
2160 3: TEST STEPS: 
2161 3 
2162 : REPEAT FOR LOOPCNT 
2163 3 BEGIN 
2164 : Do Subtest 1 - FIFO Initialize stetus test 
2165 ; Do Subtest 2 - FIFO Write Single Byte test 
2166 3 Do Subtest 3 - FIFO Write Multiple Bytes test 
2167 ; Do Subtest 4 - FIFO Verify ILW Status test 
2168 ; Do Subtest 5 - FIFO Input Ready test 
2169 ; Do Subtest 6 - FIFO Verify Reset FIFO test 
2170 F END 2 
2171 3 
2172 
2173 
2174 040116 BGNTST 


040116 Té6:: 


Dil 
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2179 040116 
2180 040122 
2181 040126 
2182 040134 
2183 040140 
2184 040144 
218 


012700 046346' 
004737 016322’ 
012737 000012 
004737 017106' 
005037 003134' 


004737 015604' 


005037 002222' 
012704 047740' 
004737 010472’ 


103407 
010001 


104455 
001131 


002216' 


SEQ 133 
MOV #TST17I0,R sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, 1815 fUP 100 INITIAL TEST SETUP 
MOV 010. ,LOOPCNT sPERFORM 10 ITERATIONS 
JSR PC ,KTOFF sSHUT OFF MEMORY MANAGEMENT 
CLR K TENABLE sREALLY SHUT DOWN KT-11 
TL7LOOP; 
-SBTTL TEST 6: SUBTEST 1: FIFO INITIALIZE STATUS TEST 
gee 
; TEST 6: SUBTEST 1: 
: 
3; SUBTEST DESCRIPTION: 
3 
; This test verifies, by using the Read Status select code, 
; that the FIFO stetus is in the correct initial state after 
3 the controller is initialized (Input Ready TRUE, 
3 Output Ready and Data In Miss FALSE). Tnese status 
3 signels are checked by the controller's self-test 
3 sequence, so this subtest is actually more of a partial 
3 check of the Read Status function than the FIFO status. 
3 
: TEST STEPS: 
3 
3 BEGIN 
; Write to TSSR to soft initialize 
3 Do e WRITE CHARACTERISTICS to setup a message buffer 
3 Do a WRITE SUBSYSTEM Read Stetus 
3 If Input Ready NOT=i Then Print Error 
8 If Output Ready NOT*0 Then Print Error 
3 If Date In Miss NOT=0 Tnen Print Error 
3 END 
Re? 
BGNSUB 34/////71///// BEGIN SUBTEST S/4///////7/ 
T6.1: 
TRAP Cs8SU8 
i. Write to TSSR register to soft initialize the controller 
JSR PC, SOF INIT sWRITE TO TSSR TO ey iy INITIALIZE 
BCS 10% :8R IF SOFT INIT OKAY 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERROF ERRNO,SFIERR,SFIMSG ;DEVICE FATAL OURING INIT 
TRAP CSERDOF 
-WORD 600 
-WORD SFIERR 
-WORD SFIMSG 
3 Do ea WRITE GHARAG TEREST ICS to setup e message buffer 
108; CLR FATFLG :CLEAR FATAL ERROR FLAG 
MOV OTL 7RPACKET RG sGET THE ADDRESS OF COMMAND PACKET 
JSR PC, WRICHR 3:00 —s CHARACTERISTICS COMMAND 
FORCERROR 42% QBOFORCE ERROR IF FORCER=1 
BCS 508 38R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT. ERRNO 
423; ERRDF ERRNO, T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 601 
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TSVS - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 SEQ 134 
TEST 6: SUBTEST 1: FIFO INITIALIZE STATUS TEST 

040226 046365' -WORD T17SSR 
040230 011656' -WORD PKTSSR 

2228 040232 005237 002222’ INC FATFLG sSET FATAL ERROR FLAG 

2229 040236 50$: CKLOOP sLOOP ON ERROR, IF FLAG SET 

a 040236 104406 TRAP CSCLP1 

2231 3 Do a Write iperaeen READ STATUS 

2232 040240 004737 047524' JSR PC,T sSETUP PACKET FOR READ STATUS 

2233 040244 012704 050110’ MOV eTi7PK2, R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

2234 040250 010465 000000 MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

2235 040254 004737 016146' JSR PC,.CHKTSSR sWAIT FOR SSR TO SET 

2236 040260 FORCERROR 62$ s@BOFORCE ERROR IF FORCER=1 

2237 040274 103407 6cS 708 BR IF CARRY SET (GOOD RETURN) 

2238 040276 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2239 040300 NEXT. ERRNO 

2240 040300 628: ERRDF ERRNO,T1735SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
040300 104455 TRAP CSEROF 
040302 001132 «WORD 602 
040304 046466' -WORD 1173SSR 
040306 011656’ -WORD PKTSSR 

2241 040310 005237 002222' INC FATFLG sSET FATAL ERROR FLAG 

2242 040314 708: CKLOOP sLOOP ON ERROR, IF FLAG SET 
040314 104406 TRAP CSCLP1 

2243 3 Set WORDS 0-7 of expd message buffer = to recv since not testing 

2244 040316 004737 047706' JSR PC, TL7SETEXP sSET WORDS 0-7 EXPD=RECV 

2245 040322 012701 046142’ MOV OTL7EXSTA, RL 3GET EXPECTED READ STATUS 

2246 040326 012702 050002’ MOV @T176F STA.R2 :GET RECV READ STATUS 

2247 040332 012221 MOV CR2)+,CR1)> sSET EXPD WORD 08 = RECV TEMP 

2248 040334 011211 MOV CR2),(R1) ;SET EXPD WORD 09 = RECV TEMP 

2249 040336 052711 000020 BIS @S2.INRDY,CR1) sSET EXP INPUT READY= TRUE 

2250 040342 042711 000040 BIC @S2.O0UTROY,.CR1) sSET EXP OUTPUT READY= FALSE 

2251 040346 042711 000200 BIC @S2.0IM,(R1) sSET EXP DATA IN MISS = FALSE 

2252 ; If Input Ready NOT= #1 then Print Error 

2253 3 If A er Ready NOT=0 or Data in Miss NOT*0 Then Print Error 

2254 040352 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 

2255 040354 012701 047762' MOV @T17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 

2256 040360 012702 046122’ MOV OTL7EXP.R2 sEXPD ADDRESS 

2257 040364 012703 000024 MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 

2258 040370 004737 011310' JSR PC ,.CKMSG2 sEXPD EQUAL RECV? 

2259 040374 - FORCERROR 82$,NOTSSR 3880 

2260 040404 103404 Bcs 90% 38R IF YES 

2261 040406 NEXT . ERRNO 

2262 040406 823: ERRHRD ERRNO, 1171CMP ,MSGSTAT ;REPORT ERROR 
040406 104456 TRAP CSERHRD 
040410 001133 -WORD 603 
040412 046705' . WORD T171CMP 
040414 012160’ . WORD MSGSTAT 

2263 040416 90%: CKLOOP sLOOP ON ERROR, IF FLAG SET 

ene 040416 104406 TRAP CSCLP1 

2265 040420 ENDSUB s///1////4//7 END SUBTEST //4//4//4//4/7/ 
040420 L1005?: 

seal 040420 104403 TRAP C;€SUB 

2267 040422 005737 002222’ TsT FATFLG sANY FATAL ERRORS ? 

2268 040426 001402 BEQ 160% ;BRANCH IF NOT 


2269 040430 004737 017014’ JSR PC ,CKDROP sTRY TO DROP THE UNIT 


TSvS 


TEST 6: SUBTEST 
2270 040434 


104402 


004737 015604’ 
103405 
010001 


1608; 
.5B 


zee 
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BEGIN 
Wri 


Do 
If 
If 
If 


REPEAT F 
BEGIN 
Do 
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TTL TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 


UBTEST 2: 


SUBTEST DESCRIPTION: 


s subtest verifies the ability of the FIFO to correctly 


pass e single date byte from input to output. For each 


256 data values (0-377 octal) the following is done: 

Initiel FIFO status is checked 

The Write FIFQ: function, specifying a count of 

one byte to be written is executed. 

Read Status is executed and FIFO status is checked. 
Read FIFO is executed and the data and final status 
is checked. 


fw ve 


TEST STEPS: 


te to TSSR to soft initialize 


Do a WRITE CHARACTERISTICS to setup a message buffer 


a Write Subsystem READ STATUS 

Input Ready NOT=1 Then Print Error 
Output Ready NOT=0 Then Print Error 
Data In Miss NOT=0 Then Print Error 


OR DATA FROM O TO 377 OCTAL 


e Write Subsystem WRITE NPR to set tape direction out 
e Write Subsystem WRITE FIFO with byte count equal to 1 
a Write Subsystem READ STATUS 

Input Ready NOT=1 Tren Print Error 

Output Ready NOT=1 Then Print Error 

Date In Miss NOT=0 Then Print Error 

Write Subsystem READ FIFO with byte count equal to 1 
Date read from FIFO NOT= to Data sent Then Print Error 


Do a Write Subsystem READ STATUS 


Input Ready NOT=1 Then Print Error 
Output Ready NOT=0 Then Print Error 


SEQ 135 


a al Date In Miss NOT=0 Tnen Print Error 
ENO 
BGNSUB 3////4///4//// BEGIN SUBTEST ///4///74/77/ 
T6.2: 
TRAP CsBSUB 
i, Write to TSSR register to soft initialize the controller 
“ JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 
BCS 103 36R IF SOFT INIT OKAY 
MOV sSAVE CONTENTS OF TSSR 


RO,R1 
OF ERRNO,SFIERR,CFIMSG sDEVICE FATAL DURING INIT 


Gil 


test ee CUB TEST 5) FIFO CRITE BtHeLe Bi rE ieee toe = 


040446 104455 TRAP CSEROF 
040450 001133 «WORD 603 
040452 003646' -WORD SFIERR 
040454 011644' «WORD SFIMSG 

2325 3 Do a — ee to setup ea message buffer 

2326 040456 005037 002222’ 108: CLR sCLEAR FATAL ERROR FLAG 

2327 040462 012704 047740' MOV TI TPACKET, R4 sGET THE SDDRESS OF COMMAND PACKET 

2328 040466 004737 010472’ JSR PC,.WRTCHR 300 WRITE CHARACTERISTICS COMMAND 

2329 040472 FORCERROR 42$ s@BDOFORCE ERROR IF FORCER=1 

2330 040506 103407 BcSs 503% s6R IF CARRY SET (GOOD RETURN) 

2331 040510 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2332 040512 NEXT .ERRNO 

2333 040512 42%: ERROF ERRNO, 1T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
040512 104455 TRAP CSEROF 
040514 001134 -WORD 604 
040516 046365’ «WORD T17SSR 
040520 011656' -WORD PKTSSR 

2334 040522 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 

2335 040526 503: CKLOOP sLOOP ON ERROR, IF FLAG SET 
040526 104406 TRAP CSCLPl 

2336 3 Do ea Write Subsystem READ STATUS 

2337 040530 004737 047524’ JSR PC, T17SRD sSETUP PACKET FOR READ STATUS 

2338 040534 012704 050110’ MOV @T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

2339 040530 010465 000000 MOV R4,TSOB(RS) sSET THE PACKET ADORESS TO EXECUTE 

2340 040544 004737 016146’ JSR PC. CHKTSSR sWAIT FOR SSR TO SET 

2341 040550 FORCERROR 62$ s@@DFORCE ERROR IF FORCER=1 

2342 040564 103407 Bcs 70% :BR IF CARRY SET (GOOD RETURN) 

2343 040566 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

2344 040570 NEXT, ERRNO 

2345 040570 628: ERRDF ERRNO,T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
040570 104455 TRAP CSEROF 
040572 001135 -WORD 605 
040574 046466’ . WORD T173SSR 
040576 011656’ P . WORD PKTSSR 

2346 040600 005237 002222’ INC FATFLG ;5ET FATAL ERROR FLAG 

2347 040604 708%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
040604 104406 TRAP CSsCLP1 

2348 : Set WORDS 0-7 of expd message buffer = to recy since not testing 

2349 040606 004737 047706’ JSR PC, TL7SETEXP ;SET WORDS 0-7 EXPD=RECV 

2350 040612 012701 046142: MOV OTI7EXSTA, R1 ;GET EXPECTED READ STATUS 

2351 040616 012702 050002’ MOV OT17BFSTA.R2 ;GET RECV READ STATUS 

2352 040622 012221 MOV CR2)¢,CR1)o sSET EXPO WORD #8 = RECV TEMP 

2353 040624 011211 MOV CR2),CR1) ;SET EXPD WORD @9 = RECV TEMP 

2354 040626 052711 000020 BIS @S2.INRDY,(R1) sSET EXP INPUT READY= TRUE 

2355 040632 042711 000040 BIC @S2.O0UTRDY,(R1) :SET EXP OUTPUT READY= FALSE 

2356 040636 042711 000200 BIC @S2.DIM, (Ri) sSET EXP DATA IN MISS = FALSE 

2357 : If Input Ready NOT#=1 then Print bover 

2358 3 If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error 

2359 040642 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 

2360 040644 012701 047762’ MOV @T17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 

2361 040650 012702 046122’ MOV @T1L7EXxP ,R2 sEXPD ADDRESS 

2362 040654 012703 000024 MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 

2363 040660 004737 011310’ JSR PC .CKMSG2 sEXPD EQUAL RECV? 

2364 040664 FORCERROR 82% ,NOTSSR 3280 

2365 040674 103404 BCS 90% ;BR IF YES 

2366 040676 NEX) .ERRNO 


2367 040676 823: ERRHRD ERRNO,T171CMP,MSGSTAT sREPORT ERROR 
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test 6: ASUB TEST 9: FIFO UNITE SthcLe AyTErigare _ 


0406 76 
040700 
040702 
040704 
040706 
040706 


040710 
040716 


104456 
001156 
046705’ 
012160’ 


104406 


012737 000000 002312’ 


000100 
047566' 
050110' 
000000 


016146’ 


002222’ 


000001 
002312’ 
047612' 
050110’ 
000000 


016146’ 


002222’ 


047524' 
050110° 


000000 
016146’ 


90$: 


: Repeat for DATA from 0 to 377 
MOV 


1008: 
3 


1028: 


107$: 


CKLOOP 


@0,DATA 


SEQ 137 


TRAP CSERHRD 

«WORD 606 

«WORD 1171CMP 

-WORD MSGSTAT 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1i 


sGET FIRST DATA 
sREPEAT LABEL 


Do a Write wot WRITE NPR to set tape direction out 


MOV ONP .OUT 
JSR PC,T1 7SNPR 
MOV @T17PK2,R4 


MOV R4, TSOBCRS) 
JSR PC,.CHKTSSR 


ERRNO, T174SSR,PKTSSR 


sSET TAPE OIRECTION OUT 
sSETUP T17PK2 FOR WRITE NPR 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s@@0F ORCE ERROR IF FORCER=1 
s6R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP i 


-WORD 60 

«WORD 1174SSR 

-WORD PKTSSR 
sSET FATAL ERROR FLAG 


sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


Do a “TD oS Subsystem WRITE FIFO with byte count equal to 1 


FORCERROR 102$ 

BcsS 105% 

MOV RO,R1 

NEXT .E 

ERROF 

INC FATFLG 

CKLOOP 

MOV 

MOV ooATR. R1 

JSR PC, TL7WFIF 

MOV eTi7PK2,R4 

MOV R4, TSOBCRS) 
PC,CHKTSSR 

FORCERROR 107$ 

BCS 11 

MOV RO,R1 

NEXT. 

ERROF 

INC FATFLG 

CKLOOP 

Do a Write Subsystem READ STATUS 

JSR PC,7T175 75RD 

MOV eTL7PK2, R4 

MOV R4, TSDBC RS) 

JSR PC ,CHKTSSR 

FORCERROR 112$ 

BCS 1208 


MOV RO,R1 
NEXT . ERRNO 


ERRNO, T175SSR,PKTSSR 


sWRITE 1 BYTE 
sFIFO WRITE DATA ADDRESS 
sSETUP T17PK2 FOR WRITE FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
sWATT FOR SSR TO SET 

s@@OFORCE ERROR IF FORCER=1 
3BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
T CsEROF 


608 
-WORD 1T175SSR 


-WORD PKTSSR 
;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsC.P1 


sSETUP PACKET FOR READ STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s@BOFORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


T11 


TSVS - HARDWARE TESTS MACRO M1113 0O -FEB- 17:02 Q@ 138 
TEST 6: SUBTEST 2: FIFO WRITE SINGLE OVTE Test S€Q 1 

2410 041126 112$: ERROF ERRNO, 7173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
041126 104455 TRAP CSERDF 
041130 001141 . WORD 609 
041132 046466' -WORD T1173SSR 
041134 011656’ . WORD PKTSSR 

2411 041136 005237 002222’ INC FATFLG sSET FATAL ERROR FLAG 

2412 041142 1208: CKLOOP sLOOP ON ERROR, IF FLAG SET 
041142 104406 TRAP CSCLP1 

2413 3 Set WORDS 0-7 of expd message buffer = to recv since not testing 

2414 041144 004737 047706' JSR PC, TL7SETEXP sSET WORDS 0-7 EXPD=RECV 

2415 041150 012701 046142’ MOV @TI7EXSTA, R1 sGET EXPECTED READ STATUS 

2416 041154 012792 050002’ MOV @T17BFSTA.R2 sGET RECV READ STATUS 

2417 041160 012221 MOV CR2)+,CR1)+ sSET EXPD WORD 08 = RECV TEMP 

2418 041162 011211 MOV CR2),(R1) sSET EXPD WORD @9 = RECV TEMP 

2419 041164 052711 000020 BIS @S2.INROY,(CR1) sSET EXP INPUT READY= 1 

2420 041170 052711 000040 BIS Se .QUTRDY,(R1) sSET EXP OUTPUT READY= 1 

2421 041174 042711 000200 BIC @#S2.0IM,(R i) sSET EXP DATA IN MISS = 0 

2422 F If Input Ready NOT = 1 then Print ever 

2423 3 If ans Ready NOT*1 or Data in wane NOT=*O Then Print Error 

2424 041200 005000 CLR RO HIGH RECV ADDRESS FOR CKMSG2 

2425 041202 012701 047762' MOV @T17BFR,R1 ;LOW RECV ADDRESS FOR CKMSG2 

2426 041206 012702 046122' MOV @TL7EXP.R2 3sEXPD ADDRESS 

2427 041212 012703 000024 MOV #20. ,.R3 sNUMBER OF BYTES TO COMPARE 

2428 041216 004737 011310° JSR PC ,CKMSG2 sEXPO EQUAL RECV? 

2429 041222 FORCERROR 132$,NOTSSR 3230 

2430 041232 103404 bcs 140$ ;BR IF YES 

2431 041234 NEXT .ERRNO 

2432 041234 1323: ERRHRD ERRNO,T173CMP,MSGSTAT sREPORT ERROR 
041234 104456 TRAP CSERHRD 
041236 001142 ‘ 610 
041240 047063' P T173CMP 
041242 012160' - WORD MSGSTAT 

2433 041244 1408: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

nate 041244 104406 TRAP CSCLPi 

2435 ; Do Write Subsystem READ FIFO with a oye count equal to 1 

2436 041246 012700 000001 MOV #1,R0 READ BYTE COUNT 

2437 041252 004737 047646' JSR PC, TI7RF IF } SETUP T17PK2 FOR READ FIFO 

2438 041256 012704 050110’ MOV eTi7PK2, R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

2439 041262 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADORESS TO EXECUTE 

2440 041266 004737 016146’ JSR PC.CHKTSSR sWAIT FOR SSR TO SET 

2441 041272 FORCERROR 1428 s88OFORCE ERROR IF FORCER=1 

2442 041306 103407 bcs 150$ ;BR IF CARRY SET (GOOD RETURN) 

2443 041310 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2444 041312 NEXT. ERRNO 

2445 041312 142%: ERROF ERRNO, 1T176SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
041312 104455 TRAP CSEROF 
041314 001143 . WORD 611 
041316 046642’ . WORD T176SSR 
041320 011656' -WORD PKTSSR 

2446 041322 005237 002222’ INC FATFLG sSET FATAL ERROR FLAG 

2447 041326 1508: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
041326 104406 TRAP CSCLPl 

2448 ; Set WORDS 0-7 of expd message buffer = to recy since not testing 

2449 041330 004737 047706' JSR PC, TL7SETExP sSET WORDS O-7 EXPD=RECV 

2450 041334 012701 046142: MOV OTI7EXSTA, R1 ;GET EXPECTED READ STATUS 


2451 041340 012702 050002' MOV OT17BFSTA,R2 sGET RECV READ STATUS 


Jil 


TSVS - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 SEQ 139 
TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 

2452 041344 013721 002312’ MOV DATA,(R1)+ sSET EXPD WORD #8 = COUNT DATA 

2453 041350 011211 MOV CR2),CR1) sSET EXPD WORD 09 = RECV (NOT TESTING) 

2454 3 If Date read from FIFO NOT= to Date sent [hen Print Error 

2455 ry The data is in WORD 08 of the mes buffer 

2456 041352 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 

2457 041354 012701 047762' MOV OT1L7BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 

2458 041360 012702 046122’ MOV @T1L7EXP Reo sEXPD ADDRESS 

2459 041364 012703 000022 MOV #18. ,.R3 sNUMBER OF BYTES TO COMPARE 

2460 041370 004737 011310’ JSR PC ,CKMSG2 sEXPD EQUAL RECV? 

2461 041374 FORCERROR 152$,NOTSSR 3; 280 

2462 041404 103404 : 6cS 160$ 3;BR IF YES 

2463 041406 NEXT .ERRNO 

2464 041406 1528: ERRHRD ERRNO,T172CMP ,.MSGSUB sREPORT ERROR 
041406 104456 TRAP CSERHRD 
041410 001144 «WORD 612 
041412 046767' .- WORD T172CMP 
041414 013552’ . WORD MSGSU8 

2465 041416 1608: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

meee 041416 104406 TRAP CSCLP1 

2467 3 Do ea Write Subsystem READ STATUS 

2468 041420 004737 047524' JSR PC,T17SRD s;SETUP PACKET FOR READ STATUS 

2469 041424 012704 050110’ MOV @T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

2470 041430 010465 000000 MOV R4,TSOBCRS) 3SET THE PACKET — TO EXECUTE 

2471 041434 004737 016146’ JSR PC,.CHKTSSR sWAIT FOR SSR TO SET 

2472 041440 FORCERROR 162$ s88O0FORCE ERROR IF FORCER=1 

2473 041454 103407 BCS 170$ ;BR IF CARRY SET (GOOD RETURN) 

2474 041456 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2475 041460 NEXT .ERRNO 

2476 041460 162$: ERRDOF ERRNO, T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
041460 104455 TRAP CSEROF 
041462 001145 . WORD 613 
041464 046466' . WORD T173SSR 
041466 011656’ . WORD PKTSSR 

2477 041470 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 

2478 041474 170$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
041474 104406 TRAP CSCLP1 

2479 3 Set WORDS 0-7 of expd message buffer = to recv since not testing 

2480 041476 004737 047706’ JSR PC, T1I7SETEXP ;SET WORDS O-7 EXPD=RECV 

2481 041502 012701 046142’ MOV @TI7EXSTA, R1 ;GET EXPECTED READ STATUS 

2482 041506 012702 050002’ MOV OTL7BFSTA.R2 ;GET RECV READ STATUS 

2483 041512 012221 MOV CR2)+,CR1)D> ;SET EXPD WORD @8 = RECV TEMP 

2484 041514 011211 MOV CR2),CR1) ;SET EXPD WORD 69 = RECV TEMP 

2485 041516 052711 000020 BIS @S2.INRDY,CR1) :SET EXP INPUT READY= 1 

2486 041522 042711 000040 BIC @S2.OUTRDY,(R1) ;SET EXP OUTPUT READY= 0 

2487 041526 042711 000200 BIC #S2.D0IM,(R1) ;SET EXP DATA IN MISS = O 

2488 ; If Input Ready NOT=1 then Print Error 

2489 ; If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error 

2490 041532 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 

2491 041534 012701 047762’ MOV @T17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 

2492 041540 012702 046122’ MOV @TL7EXP Reo sEXPD ADDRESS 

2493 041544 012703 000024 MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 

2494 041550 004737 011310’ JSR PC ,CKMSG2 sEXPD EQUAL RECV? 

2495 041554 FORCERROR 172$,NOTSSR : 880 

2496 041564 103404 BCS 180$ 3;BR IF YES 

2497 041566 XT.ERR 


NE NO 
2498 041566 172$: ERRHRD ERRNO, T174CMP,MSGSTAT sREPORT ERROR 


TSVS - HARDWARE TEST 
TEST 6: SUBTEST e: 


2508 
2509 
2510 
2511 
2512 
2513 


041632 
041636 
041640 
041644 


104456 
001146 
047147' 
012160’ 


104406 


005237 
023727 
101002 
000137 


104403 


005737 
001402 
004737 


002312’ 
002312’ 


040716' 


002222' 
017014’ 


000377 


1808: 


205$: 


2608: 
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Piro W URITE SINGLE BYTE Test. — 


SEQ 140 
TRAP CSERHRD 
«WORD 614 
-WORD 1174CMP 
.WORD MSGSTAT 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
FORCEXIT 205% :880 
INC DATA ;GET NEXT TEST DATA 
CMP DATA, 0377 sDONE O TO 377? 
BHI 205$ :BR IF YES 
JMP 100$ 300 ANOTHER TEST PATTERN 
ENOSUB s///////////7 END SUBTEST /////////7/ 
L10060: 
TRAP CsESuUB 
TST FATFLG sANY FATAL ERRORS ? 
BEQ 260% ;BRANCH IF NOT 


JSR PC ,.CKDROP ;TRY TO OROP THE UNIT 


-SBTTL TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 


zee 
; TEST 6: SUBTEST 3: 


SUBTEST DESCRIPTION: 


This subtest verifies the ability of the FIFO to correctly 
pass a multiple data bytes from input to output. 

The following sequence is done with various data patterns 

and byte mere from 2 to 64. 

Initial FIFO status is checked 

The Write FIFO function. 

Read Status is executed and FIFO status is checked. 
Read FIFO is executed and the data and final status 
is checked. 


Pune 


TEST STEPS: 
BEGIN 


Write to TSSR to soft initialize 

Do a WRITE CHARACTERISTICS to setup a message buffer 
Do a Write Subsystem READ STATUS 

If Input Ready NOT=1 Then Print Error 

If Output Ready NOT=O0 Then Print Error 

If Date In Miss NOT=0 Then Print Error 

If Last Word NOT =0 Then Print Error 


REPEAT FOR DATA O TO 377, 377 TO O, FLOATING 1'S,0’'S AND ALL 1'S/0'S 
REPEAT FOR BYTE COUNT 2 TO 64 DECIMAL 


BEGIN 
Do a Write Subsystem WRITE NPR to set tape direction out 
Do a Write Subsystem WRITE FIFO 
Do a Write Subsystem READ STATUS 
If Input Ready NOT=1 Then Print Error 
If Output Ready NOT=1 Then Print Error 


TS 
TE 


vS 


2590 


HARDWARE T 
ST 6: SUBTEST 


005237 


015604’ 


002222' 
047740' 
010472’ 


002222' 


047524’ 
050110' 
000000 


016146' 


002222" 


3 
10$: 


423: 


62$: 


Lil 


S? Piro white MULTIPLE Brtes Test eee 


If Data In Miss NOT=0 Then Print Error 

If Last Word NOT=0 Then Print Error 

Do Write yy my READ FIFO 

If Data read from FIFO NOT= to Data sent Then Print Error 
Do a Write Subsystem READ STATUS ; 
If Input Ready NOT=1 Then Print Error 

If Output Ready NOT=0 Then Print Error 

If Data In Miss NOT=0 Then Print Error 

If Last Word NOT=0 Then Print Error 


BGNSUB s//////////// BEGIN SUBTEST ////////// 
Te.3: trap = C8BSUB 

Write to TSSR register to soft initialize the controller 

JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 


BCS 10$ 3BR IF SOFT INIT OKAY 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERROF ERRNO,SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
TRAP CSEROF 
-WORD 614 


-WORD SFIERR 
-WORD SFIMSG 
Do a WRITE © + taireneincin to setup a message buffer 
CLR FATFLG ;CLEAR FATAL ERROR FLAG 


MOV @T1i7PACKET,R4 ;GET THE ADDRESS OF COMMAND PACKET 
JSR PC,WRTICHR 300 WRITE CHARACTERISTICS COMMAND 
FORCERROR 42$ ;8@D0FORCE ERROR IF FORCER=1 
S ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT. ERRNO 
ERRDF  ERRNO,T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 615 
. WORD T17SSR 
WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
Do a Write oe READ STATUS 
JSR PC,T ;SETUP PACKET FOR READ STATUS 
MOV OTL7PK2, R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 62$ sQQ0FORCE ERROR IF FORCER=1 
bcs 70$ 3;8R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT. ERRNO 
ERROF ERRNO, T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
WORD 616 


"wORD T173SSR 
.WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
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- TEST MA M 01-FEB- : 
TESF eee Teer SS Piro Rite Abe Frere Brtes res toe es 

2591 042014 70$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
042014 104406 TRAP CSCLP1 

2592 ; Set WORDS 0-7 of expd message buffer = to recv since not testing 

2593 042016 004737 047706' JSR PC, T17SETEXP sSET WORDS 0-7 EXPD=RECV 

2594 042022 012701 046142' MOV OTI7EXSTA, R1 iGET EXPECTED READ STATUS 

2595 042026 012702 050002' MOV OT17BFSTA.R2 3sGET RECV READ STATUS 

2596 042032 012221 MOV CR2)+,CR1)+ sSET EXPD WORD #8 = RECV TEMP 

2597 042034 011211 MOV CR2),CR1) ;SET EXPD WORD #9 = RECV TEMP 

2598 042036 052711 000020 BIS @S2.INRDY,CR1) sSET EXP INPUT READY= 1 

2599 042042 042711 000040 BIC @S2.O0UTRDY,(R1) sSET EXP OUTPUT READY= 0 

2600 042046 042711 000200 BIC #S2.D0IM,(R1) 3SET EXP DATA IN MISS = O 

2601 042052 042711 000100 BIC #S2.ILW,(R1) 3SET EXP LAST WORD (CILW)=0 

2602 3 If Input Ready NOT= 1 then Print borer 

2603 H If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error 

2604 8 If Last Word NOT=0 Then Print Error 

2605 042056 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 

2606 042060 012701 047762’ MOV #T17BFR,R1 ;LOW RECV ADDRESS FOR CKMSG2 

2607 042064 012792 046122’ MOV @T17EXP ,R2 sEXPD ADDRESS 

2608 042070 012703 000024 MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 

2609 042074 004737 011310’ JSR PC ,.CKMSG2 sEXPD EQUAL RECV? 

2610 042100 FORCERROR 82$ ,NOTSSR 3880 

2611 042110 103404 6CcS 90$ ;8R IF YES 

2612 042112 NEXT .ERRNO 

2613 042112 82s: ERRHRD ERRNO,T171CMP,MSGSTAT sREPORT ERROR 
042112 104456 ‘ TRAP CSERHRD 
042114 001151 ’ -WORD 617 
042116 046705’ -WORD 1T171CMP 
042120 012160’ WORD MSGSTAT 

2614 042122 90$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
042122 104406 TRAP CSCLPL 

2615 

2616 

2617 

2618 ; REPEAT FOR BYTE COUNT 2 TO 64 DECIMAL 

2619 ; TSTFLAG =1 FOR INCREMENT TEST PATTERN 

2620 3 s2 FOR DECREMENT TEST PATTERN 

2621 ; =3 FOR TSTBLK TABLE PATTERN 

2622 042124 012737 000001 002314' MOV #1, TSTFLAG ;TEST PATTERN FLAG 

2623 042132 95$: 

2624 042132 012737 000002 002310’ MOV #2, COUNT ;GET FIRST BYTE COUNT 

2625 042140 100$: 

2626 ; Do a Write Subsystem WRITE NPR to set tape direction out 

2627 042140 012700 000100 MOV @NP .OUT,RO ;SET TAPE DIRECTION OUT 

2628 042144 004737 047566’ JSR PC, T17SNPR ;SETUP T17PK2 FOR WRITE NPR 

2629 042150 012704 050110’ MOV @Ti7PK2, R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

2630 042154 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

2631 042160 004737 016146’ JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 

2632 042164 FORCERROR 102$ ;Q80FORCE ERROR IF FORCER=1 

2633 042200 103407 BCS 105$ ;BR IF CARRY SET (GOOD RETURN) 

2634 042202 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

2635 042204 NEXT .ERRNO 

2636 042204 102$: ERRDF ERRNO,T174SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
042204 104455 TRAP CSEROF 
042206 001152 WORD 618 
042210 046533’ WORD 1T174SSR 
042212 011656’ ORD PKTSSR 

2637 042214 005237 002222’ ;SET FATAL ERROR FLAG 


INC FATFLG 


TSV 
TES 


S - HARDWARE 
T 6: SUBTEST 


"S: Piro white MucTIPce Brtes Test 


105$: CKLOOP 
104406 
8  # e Write Ett WRITE FIFO 
004737 047666’ PC,T17CLEXP 
012701 046244' MOV @TL7WFDATA,R1 
013702 002310’ MOV COUNT, 
022737 000001 002314’ CMP #1, TSTFLAG 
001005 BNE 115$ 
005000 CLR RO 
110021 1108: MOVB RO,CR1)+ 
005200 INC RO 
005302 DEC Re 
003374 BGT 110$ 
022737 000002 002314’ 115%: CMP #2, TSTFLAG 
001006 BNE 125$ 
012700 000377 MOV 377,RO 
110021 120$: MOVB RO,CR1)>+ 
005300 DEC RO 
005302 DEC Re 
003374 BGT 120$ 
022737 000003 002314' 125%: CMP #3, TSTFLAG 
001005 BNE 135$ 
012700 002752’ MOV @TSTBLK,RO 
112021 130$: MOVB CRO)+,CR1)+ 
005302 DEC Re 
003375 BGT 130$ 
135$: 
013700 002310’ MOV COUNT ,RO 
012701 046244’ MOV OT1L7WFDATA,R1 
004737 047612’ JSR PC, T1L7WFIF 
012704 050110’ MOV @T17PK2,R4 
010465 000000 MOV R4,TSDOBCRS) 
004737 016146’ Pi HKTSSR 
FORCERROR 142$ 
103407 Ss 150$ 
010001 MOV RO,R1 
NEXT .ERRNO 
142$: ERROF ERRNO, T175SSR,PKTSSR 
104455 
001153 
046576' 
011656' 
005237 002222' INC FATFLG 
150$: CKLOOP 
104406 
3 Do a Write rE stem READ STATUS 
004737 047524' JSR PC,T 75RD 
012704 050110’ MOV ative. R4 
010465 000000 MOV R4, TSOBC RS) 
004737 016146’ JSR PC,CHKTSSR 
FORCERROR 157$ 
103407 BCS 160$ 
010001 Vv RO,R1 
NEXT .ERRNO 
157$: ERRDF ERRNO,T173SSR,PKTSSR 
104455 


Nii 


SEQ 143 


sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sCLEAR EXPD BUFFER 

HEXPD WRITE FIFO DATA BUFFER 

;TEST PATTERN SIZE 

s INCREMENT PATTERN THIS TIME THRU? 
3;6R IF NO 

s INCREMENT TEST PATTERN 

sSTORE INCREMENT TEST BYTE 

3SET NEXT PATTERN 

;D0NE? 

;BR IF NO 

;DECREMENT PATTERN THIS TIME THRU? 
;68R IF NO 

;DECREMENT TEST PATTERN 

s;STORE DECREMENT TEST BYTE 

;SET NEXT PATTERN 

;DONE? 


;68R IF NO 
;TSTBLK PATTERNS THIS TIME THRU? 
;BR IF NO 
sFLOAT 1'S/0'S ETC. TEST TABLE 
sSTORE A TSTBLK BYTE 
; DONE? 
;6R IF NO 
sFIFO BYTE COUNT 
sFIFO WRITE DATA ADDRESS 
;SETUP T17PK2 FOR WRITE FIFO 
;GET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

ERROR IF FORCER=1 


; 9BOF ORCE 
3BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAF 


"wORD T17S5SSR 


-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sSETUP PACKET FOR READ STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE iene TO EXECUTE 


;WAIT FOR SSR T 

;@@OFORCE ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 


;DEVICE FATAL SSR renee TO SET 
RAP CSEROF 


S -_MAROWARE TESTS MACRO M111 


TSV 
TEST 6: SUBTEST 3: FIFO WRITE MULTIP 


002222’ 


011310' 


000000 
016146' 


002222' 


005000 


012702 046244' 


3 
T 


1628; 


1728: 


INC 
CKLOOP 


Ble 


FATFLG 


SEQ 144 
.WORD 620 
-WORD 1173SSR 
“WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP = CSCLPi 


Set WORDS 0-7 of expd message buffer = to recv since not testing 


JSR 


PC, TI7SETEXP 
OTI7EXSTA, R1 
@TL7BFSTA,R2 
(R2)+,(R1)> 


@52.DIM, (Ri) 
@S2.ILwW.C(R1) 


sSET WORDS 0-7 EXPD=RECV 
EXPECTED READ STATUS 
RECV READ STATUS 

EXPD WORD 06 = RECV TEMP 
EXPD WORD 09 = RECV TEMP 
EXP INPUT READY= 1 

EXP OUTPUT READY= 1 

T EXP DATA IN MISS = 0 
sSET EXP LAST WORD (ILW)-0 


If Input Ready NOT #1 then Print Error 
Aa ee eee NOT*1 or Date in Miss NOT*0 Tren Print Error 


MOV @T17BFR,R1 
MOV OTI7EXP .R2 
MOV #20. ,R3 
PC.C 
FORCERROR 162% ,NOTSSR 
Bcs 17 
NEXT. 


RRNO 
ERRHRD ERRNO,T1735CMP,.MSGSTAT 


CKLOOP 


Do Write Subsystem READ FIFO 
COUNT ,RO 


MOV 
JSR 


ERROF 


INC 
CKLOOP 


CLR 
MOV 


PC, 11 7RF IF 
@T17PK2,R4 


. ERRNO 
ERRNO, 1T176SSR,PKTSSR 


FATFLG 


OTL7WFDATA,R2 


sHIGH RECV ADORESS FOR CKMSG2 
sLOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 

sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


3880 
38R IF YES 
sREPORT ERROR 


TRAP CSERHRD 

«WORD 621 

-WORD 1173CMP 

-#ORD MSGSTAT 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLPi 


sSET READ BYTE COUNT 
sSETUP T17PK2 FOR READ FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT ™ A. TO SET 

ORCE ERROR IF FORCER=1 
;6R IF CARRY SET (GOOO RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 


TRAP CsEROF 
«WORD 622 
-WORD 1176SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


If rete pean from FIFO NOT= to Data sent Tren Print Error 


sHIGH RECV ADDRESS FOR CKMSG2 
sGET EXPECTED ADDRESS FOR CKMSG2 


Cle 


HAR . : 
TeX? “oh EOBROBET SS Prec DARE AA Fre Pe BFR Et 122402 SEQ 145 

2731 042670 012701 050002’ MOV OTL7BFSTA,RL sGET RECEIVED ADDRESS FOR CKMSG2 

2732 042674 013703 002310' MOV COUNT ,R3 sNUMBER OF BYTES TO COMPARE 

2733 042700 004737 011310’ JSR PC ,CKMSG2 sEXPD EQUAL RECV? 

2734 042704 FORCERROR 192% ,NOTSSR 1880 

2735 042714 103406 6cSsS 200% s8R IF YES 

2736 042716 NEXT. ERRNO 

2737 042716 013701 002310' 1928; MOV COUNT ,R1 sGET BYTE COUNT 

2738 042722 ERRHRD ERRNO,T175CMP,FIFEXP sREPORT ERROR 
042722 104456 TRAP CSERHRD 
042724 001157 -WORD 623 
042726 047232' -WORD 1175CMP 
042730 012000' -WORD FIFEXP 

2739 042732 2008: CKLOOP sLOOP ON ERROR, IF FLAG SET 

2780 042732 104406 TRAP CSCLP1 

2741 3 Fs a Write 7 stem READ STATUS 

2742 042734 004737 047524' PC 7Sh0 sSETUP PACKET FOR READ STATUS 

2743 042740 012704 050110’ HOV orivens. R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

2744 042744 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 

2745 042750 004737 016146' JSR PC.CHKTSSR sWAIT FOR SSR TO SET 

2746 042754 FORCERROR 21238 s@8QDFORCE ERROR IF FORCER=1 

2747 042770 103407 ecs 220% sBR IF CARRY SET (GOOD RETURN) 

2748 042772 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2749 042774 NEXT .ERRNO 

2750 042774 2128: ERROF ERRNO, T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
042774 104455 TRAP CSERDF 
042776 001160 . WORD 624 
043000 046466' -WORD T173SSR 
043002 011656' -WORD PKTSSR 

2751 043004 005237 002222’ INC FATFLG sSET FATAL ERROR FLAG 

2752 043010 220% CKLOOP sLOOP ON ERROR, IF FLAG SET 
043010 104406 TRAP CSCLP1 

2753 3 Set WORDS 0-7 of expd message buffer * to recv since not testing 

2754 043012 004737 047706’ JSR PC, TL 7SETEXP 3SET WORDS O-7 ExXPD=RECV 

2755 043016 012701 046142: MOV OTI7EXSTA, R1 sGET EXPECTED READ STATUS 

2756 043022 012702 050002’ MOV @T17BFSTA,R2 sGET RECV READ STATUS 

2757 043026 012221 MOV CR2)+,CR1)> sSET EXPO WORD @6 = RECV TEMP 

2758 043030 011211 MOV CR2),CR1) sSET EXPD WORD @9 = RECV TEMP 

2759 043032 052711 000020 BIS @S2. INRDY,(R1) sSET EXP INPUT READY= 1 

2760 043036 042711 000040 BIC @S2.OUTRDY,(R1) sSET EXP OUTPUT READY= 0 

2761 043042 042711 000200 BIC @S2.DIM,(R1) sSET EXP DATA IN MISS = O 

2762 043046 042711 000100 BIC @S2.ILW,(R1) sSET EXP LAST WORD (ILW)=0 

2763 3 If Input Ready NOT = 1 then Print inven 

2764 3 If Output Ready NOT=0 or Data in Miss NOT20 Tren Print Error 

2765 043052 CLR RO sHIGH RECV ADORESS FOR CKMSG2 

2766 043054 012701 047762: MOV OT1L7BFR,R1 sLOW RECV ADORESS FOR CKMSG2 

2767 043060 012702 046122’ MOV OTL7EXP,R2 sEXPD ADDRESS 

2768 043064 012703 000024 MOV 20. ,R3 sNUMBER OF BYTES TO COMPARE 

2769 043070 004737 011310’ JSR PC ,.CKMSG2 sEXPD EQUAL RECV? 

2770 043074 FORCERROR 232%,NOTSSR +880 

2771 043104 103404 BCS 240% 3BR IF YES 

2772 043106 NEXT. ERRNO 

2773 043106 2328: ERRHRD ERRNO, T174CMP ,MSGSTAT sREPORT ERROR 
043106 104456 TRAP CSERHROD 
043110 001161 «WORD 625 
043112 047147' -WORD T174CMP 
043114 012160’ .WORD MSGSTAT 


Die 


TSVS - HARDWARE TESTS MACRO M1113 0O1-FEB-84 17:02 SEQ 146 
TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 
2774 043116 2408; CKLOOP sLOOP ON ERROR, IF FLAG SET 
043116 104406 TRAP CSCLP1 
2775 043120 FORCEXIT 250% 1880 
2776 043130 005237 002310' INC COUNT sGET NEXT BYTE COUNT 
2777 043134 023727 002310' 000077 CMP COUNT , #77 s00NE O TO 77 
2778 043142 101002 BHI 2508 3;6R IF YES 
2779 043144 000137 042140' JMP 100$% 300 ANOTHER BYTE COUNT 
2780 043150 005237 002314’ 2508: INC TSTFLAG 3GET NEXT TEST PATTERN CODE 
2781 043154 023727 002314’ 000003 CMP TSTFLAG, @3 sO0NE INC,DEC,TSTBLK PATTERNS? 
2782 043162 101002 BHI 255% 36R IF YES 
2783 043164 000137 042132’ JMP 953 300 ANOTHER TEST PATTERN 
2784 043170 2558; 
2785 043170 ENODSUB 34///7///////7 END SUBTEST S/S//4/////47/ 
043170 L10061: 
o706 043170 104403 TRAP CsESUB 
2787 043172 005737 002222’ TsT FATFLG sANY FATAL ERRORS ? 
2788 043176 001402 BEQ 2608 sBRANCH IF NOT 
2789 043200 004737 017014' JSR PC ,CKDROP sTRY TO OROP THE UNIT 
thy 043204 2608: 
Sren -SBTTL TEST 6: SUBTEST 4: FIFO Verify ILW Status 
2794 see 
2795 ; TEST 6: SUBTEST 4; 
2796 3 
ores ; SUBTEST DESCRIPTION: 
3 
2799 F This subtest verifies that reading the FIFO when it is 
Sone 3 empty causes the Last Word (ILW) status to assert. 
: 
2802 ; TEST STEPS: 
2803 3 
2804 3; BEGIN 
2805 : Write to TSSR to soft initialize 
2806 3 Do Write Subsystem READ FIFO with byte count equal to 1 
2807 ; Do a Write Subsystem READ STATUS 
2808 3 If Input Ready NOT=1 Then Print Error 
2809 ; If Output Ready NOT<O Then Print Error 
2810 3 If Deta In Miss NOT*0 Then Print Error 
2811 : If Last Word (ILW) NOT*1 Tren Print Error 
ai Ton 
ge 
2814 043204 BGNSUB 3//////////7// BEGIN SUBTEST //4//4////477/ 
043204 T6.4: 
20:8 043204 104402 TRAP CsBSvu8 
2816 ; Write to TSSR register to soft initialize the controller 
2817 043206 S$: 
2818 043206 004737 015604’ JSR PC,SOFINIT sWRITE TO TSSR TO SOFT INITIALIZE 
28619 043212 103405 BCS 108 36R IF SOFT INIT OKAY 
2820 043214 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
2821 043216 ERROF ERRNO, SF IERR, SF IMSG sDEVICE FATAL DURING INIT 
043216 104455 TRAP CsEROF 
043220 001161 wORD 625 
043222 003646’ wORD SF IERR 


AF. 


TSVS - HARDWARE TESTS MACRO M1 is -FEB-84 17:02 SEQ 147 
TEST 6: SUBTEST 4: FIFO VERIFY sfATUS “ 

2822 3 Do a ee oy ciintaeietees to setup & mess buffer 

2823 043226 005037 002222’ 10$: CLR sCLEAR FATAL ERROR FLAG 

2824 043232 012704 047740' MOV OTLIPACKET, R4 iGET THE ADDRESS OF COMMAND PACKET 

2825 043236 004737 010472’ JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 

2826 043242 FORCERROR 423 s@BOFORCE ERROR IF FORCER=1 

2827 043256 103407 Bcs 50$ ;6R IF CARRY SET (GOOD RETURN) 

2828 043260 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2829 043262 NEXT. ERRNO 

2830 043262 423: ERRDF ERRNO,T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
043262 104455 TRAP CSERDF 
043264 001162 «WORD 626 
043266 046365’ -WORD T17SSR 
043270 011656’ WORD PKTSSR 

2831 043272 005237 002222' INC FATFLG sSET FATAL ERROR FLAG 

2832 043276 50$: CKLOOP sLOOP ON ERROR, IF FLAG SET 

2033 043276 104406 TRAP CSCLP1 

2834 : Do Write Subsystem READ FIFO Sealer” A te count equal to 1 

2835 043300 012700 000001 MOV #1,R0 READ BYTE CO COUNT” 

2836 043304 004737 047646' JSR PC, T17RF IF OE TUP T1L7PK2 FOR READ FIFO 

2837 043310 012704 050110’ MOV @T17PK2,R4 3;GET WRITE SUBSYSTEM COMMAND PACKET 

2838 043314 010465 000000 MOV R4, TSOBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 

2839 043320 004737 016146' JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

2840 043324 FORCERROR 1423 sQ8@O0FORCE ERROR IF FORCER=1 

2841 043340 103407 BcSs 1503 36R IF CARRY SET (GOOD RETURN) 

2842 043342 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2843 043344 NEXT .ERRNO 

2844 043344 1428: ERROF ERRNO, T176SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
043344 104455 TRAP CSEROF 
043346 001163 «WORD 627 
043350 046642’ «WORD T176SSR 
043352 011656’ -WORD PKTSSR 

2845 043354 005237 002222' INC FATFLG ;SET FATAL ERROR FLAG 

2846 043360 150$; CKLOOP ;LOOP ON ERROR, IF FLAG SET 

200? 043360 104406 TRAP CsCLP1 

2848 ; Do a Write Subsystem READ STATUS 

2849 043362 004737 047524’ JSR PC,T17SRD sSETUP PACKET FOR READ STATUS 

2850 043366 012704 050110’ MOV @T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

2851 043372 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

2852 043376 004737 016146' JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

2853 643402 FORCERROR 162$ s@BOFORCE ERROR IF FORCER=1 

2854 043416 103407 BcSs 170$ ;6R IF CARRY SET (GOOD RETURN) 

2855 043420 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2856 043422 NEXT .ERRNO 

2857 043422 1628: ERRDF  ERRNO,T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
043422 104455 TRAP CSEROF 
043424 001164 . WORD 628 
043426 046466' «WORD 1173SSR 
043430 011656’ .WORD PKTSSR 

2858 043432 005237 002222’ INC FATFLG 3SET FATAL ERROR FLAG 

2859 043436 1708: CKLOOP sLOOP ON ERROR, IF FLAG SET 
043436 104406 TRAP CSCLPL 

2860 F Set WORDS 0-7 of expd message buffer = to recy since not testing 

2861 043440 004737 047706‘ JSR PC, TL7SETEXP sSET WORDS 0-7 EXPD=RECV 

2862 043444 012701 046142' MOV OTI7EXSTA, R1 ;GET EXPECTED READ STATUS 


2863 043450 012702 050002’ MOV OT178FSTA,R2 sGET RECV READ STATUS 


TSVS - HARDWARE 


TEST 6: SUBTEST 4: FIFO VER 


TESTS MACRO M1113 -FEB-84 17:0, 
Gey hs sPAiUs " en ee 
012221 MOV (R2)+, (R16 sSET EXPD WORD 08 = RECV TEMP 
011211 MOV (R2),¢R1) sSET EXPD WORD 09 © RECV TEMP 
052711 000020 BIS @S2. INRDY,(R1) sSET EXP INPUT READY= 1 
042711 000040 BIC @52.OUTRDY, (Ri) sSET EXP OUTPUT READY= 0 
042711 000200 BIC @S2.0IM,(R1) sSET EXP DATA IN MISS = 0 


052711 000100 


004737 011310' 


104403 


005737 002222' 
001402 
004737 017014' 


17238: 


2608: 


BIS Se. Ilw,(R1) ;SET EXP LAST WORD CILW)=1 

If Input Ready NOT=1 then Print Error 

If Output Re NOT*0 or Data in Miss NOT*0 Then Print Error 
If Last Word (ILW) NOT*1 Then Print Error 

CLR RO sHIGH RECV ADDRESS FOR CKMSG2 


MOV @T17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
MOV @TL7EXP ,R2 sEXPD ADDRESS 

MOV 020. ,R3 sNUMBER OF BYTES TO COMPARE 
JSR PC ,.CKMSG2 sEXPD EQUAL RECV? 

FORCERROR 172$,NOTSSR 1880 

BCS 180% ;BR IF YES 

NEXT .ERRNO 


ERRHRD ERRNO, T176CMP,MSGSTAT sREPORT ERROR 


WORD 629 
WORD T176CMP 
Bap .WORD MSGSTAT 
CKLOOP ;LOOP ON ERROG? IF FLAG SET 
TRAP CsCLP1 
ENOSUB AAAAAALAALALA END SUBTEST SAASASASSASS 
Ll 3 
TRAP CseSuB 
TST FATFLG sANY FATAL ERRORS ? 
BEQ 2608 ;BRANCH IF NOT 
JSR PC ,CKDROP sTRY TO OROP THE UNIT 


-SBTTL TEST 6: SUBTEST 5S: FIFO Verify Input Ready 


zee 
; TEST 6: SUBTEST 5: 


; 
SUBTEST DESCRIPTION: 


This subtest verifies that writing 64. bytes into the FIFO 
without reading any out causes the Input Ready status to 
negate. The Subtest then verfiies that writing a 65th byte 
into the FIFO causes the Date In Miss status to assert. 
Next it is verified that the original 64 bytes can be read 
out correctly and that the data has not been corrupted. 


TEST STEPS: 


BEGIN 


Write to TSSR to soft initialize 

Do ea WRITE CHARACTERISTICS to setup a message buffer 

Do ea Write Subsystem WRITE NPR to set tape direction out 

Do a Write Subsystem WRITE FIFO 64. bytes incrementing pattern 
Do a Write Subsystem READ STATUS 

If Input Ready NOT=0 Then Print Error 


Gle 


TSVS - HARDWARE TESTS MACRO M1113 O1-FEB-84 17:02 SEQ 149 
TEST 6: SUBTEST 5: FIFO VERIFY INPUT READY 

2914 3 If Output Ready NOT=1 Then Print Error 

2915 F If Date In Miss NOT*0 Then Print Error 

2916 : Do a Write Subsystem WRITE FIFO 1 byte for a totel of 65. written 

2917 3 Do a Write Subsystem READ STATUS 

2918 3 If Input Ready NOT=0 Then Print Error 

2919 3 If Output Ready NOT=1 Then Print Error 

2920 3 If Date In Miss NoTeL Then Print Error 

2921 3 Do Write ey nay READ FIFO 

2922 3 If Date read from FIFO NOT= to Dete sent Then Print Error 

2923 3 Do a Write Subsystem READ STATUS 

2924 ; If Input Ready NOT*1 Then Print Error 

2925 3 If Output Ready NOT=0 Then Print Error 

2926 Fy If Date In Miss NOT=1 Then Print Error 

2927 ; END 

2928 gue 

2929 043562 BGNSUB 34//////////7/ BEGIN SUBTEST S////////7/ 
043562 T6.5: 

sane 043562 104402 TRAP CsBSUB 

2931 3 Write to TSSR register to soft initialize the controller 

2932 043564 5$: 

2933 043564 004737 015604’ JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 

2934 043570 103405 6cs 108 ;B8R IF SOFT INIT OKAY 

2935 043572 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2936 043574 ERROF ERRNO, SF IERR, SF IMSG sDEVICE FATAL DURING INIT 
043574 104455 TRAP CsEROF 
043576 001165 -WORD 629 
043600 003646’ «WORD SFIERR 
043602 011644’ -WORD SFIMSG 

2937 ; Do ea WRITE CHARACTERISTICS to setup ea message buffer 

2938 043604 005037 002222: 108: CLR FATFLG ;CLEAR FATAL ERROR FLAG 

2939 043610 012704 047740' MOV @T1L7PACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 

2940 043614 004737 010472’ JSR PC,.WRICHR 300 WRITE CHARACTERISTICS COMMAND 

2941 043620 FORCERROR 423 sQQD0FORCE ERROR IF FORCER=1 

2942 043634 103407 6cs 50% ;8R IF CARRY SET (GOOD RETURN) 

2943 043636 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2944 043640 NEXT ERRNO 

2945 043640 42%: ERROF ERRNO,T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
043640 104455 TRAP CSERDF 
043642 001166 -WORD 630 
043644 046365' -WORD T17SSR 
043646 011656’ . WORD PKTSSR 

2946 043650 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 

2947 043654 50$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

eae 043654 104406 TRAP CSCLP1 

2949 ; —& a Write Subsystem WRITE NPR to set tape direction out 

2950 043656 012700 000100 1008; @NP .OUT,RO :SET TAPE OIRECTION OUT 

2951 043662 004737 047566’ OR PC, T17SNPR s;SETUP T17PK2 FOR WRITE NPR 

2952 043666 012704 050110’ MOV eTi7PK2, R4 3GET WRITE SUBSYSTEM COMMAND PACKET 

2953 043672 010465 000000 MOV R4,TSDBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 

2954 043676 004737 016146’ JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

2955 043702 FORCERROR 102$ s@Q0FORCE ERROR IF FORCER=1 

2956 043716 103407 Bcs 105% ;6R IF CARRY SET (GOOD RETURN) 

2957 043720 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2958 043722 NEXT. ERRNO 


2959 043722 102%; ERROF ERRNO,T174SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 


TSv5 
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104455 
001167 
046533' 
011656’ 
005237 


104406 


012737 


002222' 


000100 
046244 ' 
000100 


002310° 
046244' 
047612’ 
050110' 


000000 
016146' 


002222' 


047524’ 
050110' 
000000 


016146' 


002222' 


002310' 


1058: 


1108: 


142$: 


150$: 


157$: 


Hie 
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INC FATFLG 


CKLOOP 

MOV 

MOV OTL 7UFDATA, R1 
MOV 064. ,R2 

CLR RO 

MOVB RO,CR1)+ 

INC RO 

DEC R2 

BGT 110$ 

MOV COUNT ,RO 

MOV @717WFDATA,R1 
JSR PC, TI7WFIF 
MOV @T17PK2,R4 
MOV R4, TSOBCRS) 
JSR PC, CHKTSSR 
FORCERROR 142% 
Bcs 150% 

MOV RO,R1 

NEXT. 

ERROF ERRNO,T175SSR,PKTSSR 
INC FATFLG 

CKLOOP 


Do a Write Subsystem READ STATUS 

Then Print Error 
Then Print Error 
Then Print Error 


If Input Ready NOT=0 
If Output Ready NOT=1 
If Data In Miss NOT=0 


JSR PC,T17SRD 

MOV @T17PK2,R4 

MOV R4, TSOBCRS) 
R PC,CHKTSSR 

FORCERROR 157% 

BCS 160$ 

MOV RO,R1 

NEXT .ERRNO 

ERROF ERRNO, T173SSR,PKTSSR 

INC FATFLG 

cKLOOP 


SE@ 150 
TRAP CSEROF 
-WORD 631 
-WORD T174SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
P TRAP CsCLP1 


Do a Write Subsystem WRITE FIFO 64. tes incrementing pattern 
064. ,COUNT rte 


WR 64 BYTES 
sEXPD WRITE FIFO DATA BUFFER 
;TEST PATTERN SIZE 
s INCREMENT TEST PATTERN 
sSTORE INCREMENT TEST BYTE 
3SET NEXT PATTERN 
3sDONE? 
;68R IF NO 
sFIFO BYTE COUNT 
sFIFO WRITE DATA ADDRESS 
;SETUP T17PK2 FOR WRITE FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 
s@@0FORCE ERROR IF FORCER=1 
;68R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
«WORD 632 
«WORD 1T175SSR 
WORD PKTSSR 


;SET FATAL ERROR FLAG 
s;LOOP ON ERROR, IF FLAG SET 
TRAP CscLP1 


sSETUP PACKET FOR READ STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s@@OFORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
-WORD 633 
-WORD 1173SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CscLP1 


Set WORDS 0-7 of expd message buffer = to recy since not testing 


1SVS - HARDWARE TESTS 
TEST 6: SUBTEST 5: FIFO VERIFY INPUT READY 


Iie 


MACRO M1113 01-FEB-84 17:02 


011310' 


000001 
046244' 
047612" 
050110’ 
000000 


016146' 


002222' 


047524" 
050110° 


000000 
016146' 


162%: 


170$: 


1728: 


180$: 


JSR PC, T17SETEXP 
MOV @TL7EXSTA,A1L 
MOV @T1L7BFSTA,R2 
MOV (R2)+,CR1)> 
MOV CR2),(R1) 


BIC @S2.INRDY,(R1) 
BIS @S2.OUTRDY,(R1) 
BIC + idee 


0 
MOV @T17BFR,R1 


MOV @T17EXP,Re 

MOV 20., 

JSR PC ,.CKMSG2 

FORCERROR 162$ ,NOTSSR 
BcS 170$ 

NEXT .E 


RRNO 
ERRHRD ERRNO,T173CMP,MSGSTAT 


CKLOOP 


SEQ 151 


sSET WORDS 0-7 EXPD=RECV 

sGET EXPECTED READ STATUS 
sGET RECV READ STATUS 

sSET EXPD WORD #6 = RECV TEMP 
sSET EXPD WORD #9 = RECV TEMP 
sSET EXP INPUT READY= 0 

sSET EXP OUTPUT READY= 1 

sSET EXP DATA IN MISS = 9 
SHIGH RECV ADDRESS FOR CKMSG2 
sLOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 

sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


3;88a0 
;68R IF YES 


sREPORT ERROR 
TRAP CSERHRD 


-WORD 634 

«WORD 1173CMP 

-WORD MSGSTAT 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


Do a Write Subsystem WRITE FIFO 1 byte = 4 e total of 65. written 
MOV #1,RO0 COUNT 


MOV @Ti7WFDATA, R1 
JSR PC, TL 7WFIF 
MOV eTi7PK2,R4 
MOV R4, TSOBCRS) 
JSR PC,.CHKTSSR 
FORCERROR — 172$ 
BCS 180$ 

MOV RO,R1 

NEXT .ERRNO 


ERRDF ERRNO,T175SSR,PKTSSR 


INC FATFLG 
CKLOOP 


Do a Write Subsystem READ STATUS 


sFIFO BYTE 
sFIFO WRITE DATA ADDRESS 
;SETUP T17PK2 FOR WRITE FIFO 
;GET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

;8@D0F ORCE ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


-WORD 635 
-WORD T175SSR 


WORD PKTSSR 
sSET FATAL ERROR FLAG 
;LCOP ON ERROR, IF FLAG SET 

TRAP CscCLPL 


If Input Ready NOT=0 Then Print Error 
If Output Ready NOT=1 Then Print Error 
If Data In Miss NOT=1 Then Print Error 


JSR PC,T17SROD 
MOV @T17PK2,R4 
MOV R4, TSOBCRS) 
JSR PC ,CHKTSSR 
FORCERROR 187$ 
BCS 190% 

MOV RO,R1 


NEXT .ERRNO 


sSETUP PACKET FOR READ STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

;@@OFORCE ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


TSVS - HARDW 
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Jle2 
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011310’ 


002310’ 
047646' 
050110’ 


000000 
016146' 


002222’ 


046244' 


011310° 


187%: 


1908: 


192$: 


212s: 


ERROF ERRNO,T173SSR,PKTSSR 


INC FATFLG 
CKLOOP 


SEQ 152 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 
WORD 636 


-WORD 1173SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


Set WORDS 0-7 of expd message buffer = to recv since not testing 


JSR PC, TI7SETEXP 
MOV @TI7EXSTA,R1 
MOV OT17BFSTA,R2 
MCV (R2)+,CR1)> 
MOV CR2),(R1) 

BIC @S2.INRDY,(R1) 
BIS @S2.QOUTRDY,(CR1) 
BIS + anata ttaeie 


CLR 
MOV @T17BFR,R1 
MOV @T1L7EXP ,R2 
MOV #20. ,R 
PC, SsG2 
4 ne 192$,NOTSSR 
NEXT .ERRNO 


ERRHRD ERRNO,T173CMP ,MSGSTAT 


CKLOOP 

Do Write Subsystem READ FIFO 
MOV COUNT ,RO 

JSR PC, T17RF IF 


MOV eTi 7PK2 ,R4 

MOV R4, TSDBCRS) 

JSR PC,CHKTSSR 

FORCERROR 212s 

BcS 22 

MOV RO,R1 

NEXT .ERRNO 

ERROF ERRNO,T176SSR,PKTSSR 


INC FATFLG 
CKLOOP 


sSET WORDS 0-7 EXPD=RECV 

sGET EXPECTED READ STATUS 
sGET RECV READ STATUS 

sSET EXPD WORD 08 = RECV TEMP 
sSET EXPD WORD #9 = RECV TEMP 
sSET EXP INPUT READY= 0 

sSET EXP OUTPUT READY= 1 

3SET EXP DATA IN MISS = 1 
sHIGH RECV ADDRESS FOR CKMSG2 
sLOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 

sNUMBER OF BYTES Ma COMPARE 
sEXPD EQUAL RECV? 


;880 
;BR IF YES 
sREPORT ERROR 
TRAP CSERHRD 
- WORD 637 
.- WORD T173CMP 
WORD MSGSTAT 


;LOOP ON ERROR, IF FLAG ser 


sSET READ BYTE COUNT 
;SETUP T17PK2 FOR READ FIFO 
;GET WRITE SUBSYSTEM COMMAND PACKET 
3;SET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s;@@0FORCE ERROR IF FORCER=1 
3BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 


TRAP CSEROF 
-WORD 638 
«WORD 1176SSR 
«WORD PKTSSR 
;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLPL 


eee * ae from FIFO NOT= to Data sent Then Print Error 


MOV @T1L7WFDATA,R2 
MOV OT17BFSTA,R1 
MOV COUNT ,R3 

JSR PC ,CKMSG2 


sHIGH RECV ADDRESS FOR CKMSG2 
s;GET EXPECTED ADDRESS FOR CKMSG2 
sGET RECEIVED ADDRESS FOR CKMSG2 
sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


TSVS - HARDWARE "|" 
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3131 
3132 


103406 
013701 
104456 
001177 
047232' 
012000’ 


104406 


012160' 
104406 


002310’ 


047524’ 
050110’ 
000000 


016146' 


047762' 
046122’ 
000024 

011310' 


232s: 


2405: 


oe of oe oF 


2528: 


272s: 


280$: 


Ki1e 


STB iro VERIFY theuT ReADy 1702 


= a _ 232$,NOTSSR 
NEXT .ERRNO 


MOV COUNT ,R1 
ERRHRD ERRNO, T17SCMP ,FIFEXP 


CKLOOP 


Do a Write Subsystem READ STATUS 


SEQ 153 


;88D 
;8R IF YES 
;GET BYTE COUNT 
;REPORT ERROR 
“wORD 117S5CMP 


-WORD FIFEXP 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


If Input Ready NOT=1 Then Print Error 
If Output Ready NOT=0 Then Print Error 
If Data In Miss NOT=1 Then Print Error 


JSR PC,117SRO 


MOV @T17PK2 ,R4 

MOV R4, TSDOBCRS) 
JSR PC,.CHKTSSR 

FORCERROR 2S2$ 
BCS 260$ 

MOV RO,R1 

NEXT .ERR 


NO 
ERRDF ERRNO,T173SSR,PKTSSR 


;SETUP PACKET FOR READ STATUS 
;GET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

s@@0FORCE ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP — 
. WORD 


. WORD T173SSR 
WORD PKTSSR 
;SET FATAL ERROR FLAG 


;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


Set WORDS 0-7 of expd message buffer = to wees since not testing 


INC FATFLG 
CKLOOP 

JSR PC, TI 7SETEXP 
MOV @TI7EXSTA, R1 


MOV OTL7BFSTA,R2 
MOV CR2)+,CR1)+ 

MOV CR2),(R1) 

BIS @S2.INRDY,(CR1) 
BIC #S2.OUTRDY,(R1) 
BIS + altel 


CLR 

MOV @T17BFR,R1 
MOV @T17EXP,R2 
MOV yf too 


JSR PC ,CKMSG2 
FORCERROR at 272$,NOTSSR 


NEXT .ERRNO 
ERRHRD ERRNO,T174CMP,MSGSTAT 


CKLOOP 


sSET WORDS 0-7 EXPD=RECV 

iGET EXPECTED READ STATUS 
;GET RECV READ STATUS 

;SET EXPD WORD #8 = RECV TEMP 
sSET EXPD WORD @9 = RECV TEMP 
sSET EXP INPUT READY= ‘. 

;SET EXP OUTPUT READY= 0 

sSET EXP DATA IN MISS = 1 
;HIGH RECV ADORESS FOR CKMSG2 
sLOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 

sNUMBER OF BYTES. TO COMPARE 
sEXPD EQUAL RECV? 


33880 
;8R IF YES 


sREPORT ERROR 
TRAP CSERHRD 
-WORD 641 
. WORD T174CMP 


-WORD MSGSTAT 
;LOOP ON ERROR, IF FLAG SET 
RAP CsCLP1 


TEet 6 CUB TEST So PIFO WERGFe tABUT READY 8 27102 


Lie 


SEQ 154 


3133 045020 ENDSUB 34///////7//7/7 END SUBTEST ////////7/7/ 
045020 L10063: 
— 045020 104403 TRAP CsESuUB 
3135 045022 005737 002222’ TST FATFLG sANY FATAL ERRORS ? 
3136 045026 001402 BEQ 300$ ;BRANCH IF NOT 
3137 045030 004737 017014' JSR PC ,CKDROP sTRY TO DROP THE UNIT 
eH 045034 300$: 
sty -SBTTL TEST 6: SUBTEST 6: FIFO Verify Reset FIFO Test 
141 
3142 see 
3143 ; TEST 6: SUBTEST 6: 
3144 t 
cen ; SUBTEST DESCRIPTION: 
; 
3147 : This subtest verifies that the Reset FIFO function within 
3148 ; the Write Miscellaneous Control 1 function initializes 
3149 3 the FIFO to correct intial status. The following steps 
3150 : are performed: 
3151 : . Reset an already initialized FIFO and check for 
3152 : proper status. 
3153 3 2. Write a varying number of bytes (1-65.) into the 
3154 3 FIFO and wwrity that after each block of bytes is 
3155 ; written the FIFO can be be reset to it’s initial 
3156 ; state. 
3157 3 
3158 3; TEST STEPS: 
3159 ; 
3160 ; BEGIN 
3161 ; Write to TSSR to soft initialize 
3162 ; Do a WRITE CHARACTERISTICS to setup a mess buffer 
3163 3 Do a Write Subsystem Write Misc ‘. Reset FIFO 
3164 ; Do a Write Subsystem READ STATU 
3165 ; If all Tape Status 2 CICER, IFMK.IHER) flip-flop 
3166 ; signals NOT=0 Then Print Error 
otf 3 Do ea Write Subsystem WRITE NPR to set tape direction out 
. F 
3169 ; REPEAT FOR BYTE COUNT 1 TO 65. 
3170 . 3 BEGIN 
3171 3 Do a Write Subsystem WRITE FIFO with the current byte count 
3172 : Do a Write Subsystem Write Misc to Reset FIFO 
3173 ; Do a Write Subsystem READ STATUS 
3174 ; If all Tape Status 2 (ICER,IFMK,IHER) flip-flop 
3175 3 signels NOT=0 Then Print Error 
a iy 
_ 
3178 045034 BGNSUB 34/////////// BEGIN SUBTEST /////////7/ 
045034 T6.6: 
an 045034 104402 TRAP C$BSUB 
3180 3 Write to TSSR register to soft initialize the controller 
3181 045036 S$: 
3182 045036 004737 015604’ JSR PC,SOFINIT ;sWRITE TO TSSR TO SOFT INITIALIZE 
3183 045042 103405 BCS 10$ ;BR IF SOFT INIT OKAY 
3184 045044 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
3185 045046 ERROF ERRNO, SF IERR, SF IMSG sDEVICE FATAL DURING INIT 


Mie 


TSVS -_HARD TEST MA M 0}- : 7: 
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045046 104455 TRAP CSEROF 
045050 001201 «WORD 641 
045052 003646’ «WORD SFIERR 
045054 011644' «WORD SFIMSG 

3186 ; Do a WRITE eae to setup a message buffer 

3187 045056 005037 002222' 10$: CLR FATFLG sCLEAR FATAL ERROR FLAG 

3188 045062 012704 047740' MOV @T17PACKET ,R4 iGET THE ADDRESS OF COMMAND PACKET 

3189 045066 004737 010472’ JSR PC ,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 

3190 045072 FORCERROR 42$ s@GOFORCE ERROR IF FORCER=1 

3191 045106 103407 BCS 50$ :6R IF CARRY SET (GOOD RETURN) 

3192 045110 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

3193 045112 NEXT .ERRNO 

3194 045112 423: ERRDF ERRNO,T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
045112 104455 TRAP CSERDF 
045114 001202 . WORD 642 
045116 046365' -WORD 1T17SSR 
045120 011656' PKTSSR 

3195 045122 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 

3196 045126 50$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
045126 104406 TRAP CsCLP1 

3197 3 Do a Write Subsystem Write Misc to Reset FIFO 

3198 045130 004737 047544’ JSR PC, TL7RSFIF sSETUP PKT FOR WRITE MISC RESET FIFO 

3199 045134 012704 050110’ MOV @T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

3200 045140 010465 000000 MOV R4, TSDOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

3201 045144 004737 016146' JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 

3202 045150 FORCERROR 62$ ;@@OFORCE ERROR IF FORCER=1 

3203 045164 103407 BCS 70$ ;BR IF CARRY SET (GOOD RETURN) 

3204 045166 010001 MOV * RO,R1 ;SAVE CONTENTS OF TSSR 

3205 045170 NEXT .ERRNO 
045170 62$: ERRDF ERRNO,T172SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
045170 104455 TRAP CSEROF 
045172 001203 -WORD 643 
045174 046422’ .WORD T172SSR 
045176 011656’ WORD PKTSSR 

3207 045200 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 

3208 045204 70$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
045204 104406 TRAP CsCLP1 

3210 ; Do a Write Subsystem READ STATUS 

3211 ; If all Tape Status 2 (ICER,IFMK,IHER) flip-flop 

3212 ; signals NOT=0 Then Print Error 

3213 045206 004737 047524' JSR PC,T17SRD ;SETUP PACKET FOR READ STATUS 

3214 045212 012704 050110’ MOV #T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

3215 045216 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

3216 045222 004737 016146’ JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 

3217 045226 FORCERROR 77$ ;@@OFORCE ERROR IF FORCER=1 

3218 045242 103407 BCS 80$ ;BR IF CARRY SET (GOOD RETURN) 

3219 045244 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

3220 045246 Ne *T. ERRNO 

3221 045246 77$: ERROF ERRNO, 1T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
045246 104455 TRAP CSEROF 
045250 001204 -WORD 644 
045252 046466' «WORD 1173SSR 
045254 011656’ WORD PKTSSR 

3222 045256 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 

3223 045262 80$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
045262 104406 TRAP CsCLP1 
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SEQ 156 


3224 045264 004737 047706' JSR PC, TI 7SETEXP sSET WORDS 0-7 EXPD=RECV (NOT TESTING) 

3225 045270 012701 046142’ MOV @T17EXSTA,R1 sGET EXPECTED READ STATUS 

3226 045274 012702 050002’ MOV @T17BFSTA,R2 sGET RECV READ STATUS 

3227 045300 011211 MOV CR2),CR1) sSET EXPD WORD #8 = RECV TEMP 

3228 045302 042711 002000 BIC #S1.ICER,CR1) sSET EXPD ICER #0 

3229 045306 042711 001000 BIC @S1.IFMK,CR1) sSET EXPD IFMK =0 

3230 045312 042711 000400 BIC #S1.IHER,(CR1) sSET EXPD IHER =0 

3231 045316 016261 000002 000002 MOV ese 2(R1) sSET EXPD WORD #9 = RECV (NOT TESTING) 

3232 045324 005000 CLR sHIGH RECV ADDRESS FOR CKMSG2 

3233 045326 012701 047762’ MOV OTL 7BFR, R1 sLOW RECV ADDRESS FOR CKMSG2 

3234 045332 012702 046122’ MOV @T17EXP.R2 sEXPD ADDRESS 

3235 045336 012703 000024 MOV 920. ,R3 sNUMBER OF BYTES TO COMPARE 

3236 045342 004737 011310' JSR PC ,.CKMSG2 sEXPD EQUAL RECV? 

3237 045346 FORCERROR 92$,NOTSSR ;880 

3238 045356 103404 bcs 100$ 3;6R IF YES 

3239 045360 NEXT .ERRNO 

3240 045360 92$: ERRHRD ERRNO,1T177CMP,MSGSTAT sREPORT ERROR 
045360 104456 TRAP CSERHRD 
045362 001205 «WORD 645 
045364 047414' «WORD 1177CMP 
045366 012160' -WORD MSGSTAT 

3241 045370 100$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

ance 045370 104406 TRAP CSCLPL 

3243 F . a Write or WRITE NPR to set tape direction out 

3244 045372 012700 000100 @NP .OUT,RO ;SET TAPE DIRECTION OUT 

3245 045376 004737 047566’ OR PC, T17SNPR ;SETUP T17PK2 FOR WRITE NPR 

3246 045402 012704 050110’ MOV eTi7PK2, R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

3247 045406 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

3248 045412 004737 016146’ JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 

3249 045416 FORCERROR 112$ ;@BOFORCE ERROR IF FORCER=1 

3250 045432 103407 6cs 120$ ;BR IF CARRY SET (GOOD RETURN) 

3251 045434 010001 V RO,R1 ;SAVE CONTENTS OF TSSR 

3252 045436 NEXT. ERRNO 

3253 045436 112$: ERRDF ERRNO,T174SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
045436 104455 TRAP CSEROF 
045440 001206 -WORD 646 
045442 046533' -WORD 1174SSR 
045444 011656' -WORD PKTSSR 

3254 045446 005237 002222° INC FATFLG ;SET FATAL ERROR FLAG 

3255 045452 120$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

none 045452 104406 TRAP CSCLP1 

3257 ; Setup incrementing pattern in FIFO date buffer 

3258 045454 012701 046142’ MOV #TL7EXSTA,R1 ;EXPD WRITE FIFO DATA BUFFER 

3259 045460 012702 000100 MOV #64. ,R2 ;TEST PATTERN SIZE 

3260 045464 005000 CLR RO ; INCREMENT TEST PATTERN 

3261 045466 110021 130$: MOVB RO,CR1)+ ;STORE INCREMENT TEST BYTE 

3262 045470 5200 NC RO 3;SET NEXT PATTERN 

3263 045472 005502 DEC R2 3;DONE ? 

— 045474 003374 BGT 130$ ;68R IF NO 

3266 ; REPEAT FOR BYTE COUNT 1 TO 65. 

3267 045476 012737 000001 002310’ MOV #1, COUNT 3;GET FIRST BYTE COUNT 

3268 3 Do a Write Subsystem WRITE FIFO with the current byte count 

3269 045504 150$; ;REPEAT LOOP LABEL 

3270 045504 013700 002310’ MOV COUNT ,RO sFIFO BYTE COUNT 


TSVS - HARDWARE TESTS 


TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 


412701 
004737 
012704 
010465 
004737 


103407 
010001 


104455 
001207 
0465 76' 
011656' 
005237 


104406 


004737 
012704 
010465 
004737 


104406 
004737 
012701 


B13 


MACRO M1113 O1-FEB-84 17:02 SEQ 157 


046142’ 
047612' 
050110' 


000000 
016146' 


00222e' 


047544’ 
050110' 


000000 
016146' 


002222’ 


047524' 
050110’ 
000000 


016146’ 


002222" 


047706' 
046142’ 


i528: 


1628: 


1778: 


1808; 


MOV @TLI7EXSTA,R1 sFIFO WRITE DATA ADDRESS 

ISR PC, TI7WFIF sSETUP T17PK2 FOR WRITE FIFO 

MOV @T17PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 1528 sQGOFORCE ERROR IF FORCER=1 

BcS 1608 sR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERRDF ERRNO, T175SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 647 
«WORD T175SSR 
WORD PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 


TRAP CsCLP1 


Do ea Write Subsystem Write Misc to Reset FIFO 

JSR PC, T17ROFIF sSETUP PKT FOR WRITE MISC RESET FIFO 
MOV @T17PK2,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 


JSR PC,.CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 1628 sQ@Q0FORCE ERROR IF FORCER=1 

BcS 170$ BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF ISSR 

NEXT .ERRNO 

ERROF ERRNO, T172SSR,PKTSSR sCEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WOKD 648 
-WORD  1172SSR 

PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 


TRAP CscLPL 


Do a Write Subsystem READ STATUS 
If A p- Tape Stetus 2 (ICER,IFMK,IHER) Flip-flop 
signals NOT*O Then Print Error 
JSR PC,T17SRD sSETUP PACKET FOR READ STATUS 


MOV eTi7PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
JSR PC, CHKTSSR sWAIT ag SSR TO SET 
FORCERROR 1778 @BOFORCE ERROR IF FORCER=1 
ecs 1808 sBR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT. ERRNO 
ERROF ERRNO, T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 649 
. WORD T173SSR 
WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG e. re 
L 
JSR PC, TI7SETEXP sSET WORDS 0-7 EXPD=RECV (NOT TESTING) 
MOV OTL7EXSTA,RI sGET EXPECTED READ STATUS 


Peet EOBTEE TES Pre cM PERG VAR Se A FB FPS t 7 102 


046116 


046116 
046117 
046120 


012702 


012160' 
104406 


377 
037 
360 


050002' 


011310" 


002310' 
002310' 


045504" 


002222’ 


017014’ 
016270’ 


040144’ 


000101 


C13 


MOV @TL7BFSTA,R2 
MOV CR2),(R1) 

BIC @S1.ICER,(R1) 
BIC oS1.IFMK,(R1) 
BIC @S1.IHER,(R1) 
MOV 2(R2),2CR1) 
CLR RO 

MOV @T1L7BFR,R1 
MOV @TL7EXP ,R2 
MOV #20., 

JSR PC ,CKMSG2 
FORCERROR 192% ,NOTSSR 


8 200 
NEXT .ERRNO 


1928: 
2008: CKLOOP 
2508: 
FORCEXIT 
INC 
CMP 
BHI 
JMP 
2608: 
ENOSUB 
TST 
BEQ 
JSR 
3008: JSR 
BCC 
JMP 
3053: 
EXIT 


ERRHRD ERRNO,T177CMP,MSGSTAT 


2608 
COUNT, 065. 


260% 
1508 


FATFLG 


3¢ 
sLOCAL STORAGE FOR THIS TEST 


T17MSK; 


-BYTE 


tC<000> 
tC<340> 
tC<O17> 


SEQ 158 


sGET RECV READ STATUS 

sSET EXPD WORD 06 = RECV TEMP 

sSET EXPD ICER *0 

sSET EXPD IFMK =0 

sSET EXPD IHER =0 

sSET EXPD WORD #9 = RECV (NOT TESTING) 
sHIGH RECV ADORESS FOR CKMSG2 

sLOW RECV ADORESS FOR CKMSG2 

sEXPD ADDRESS 

sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


3880 
36R IF YES 


sREPORT ERROR 
TRAP CSERHRD 
-WORD 650 
WORD T177CMP 
-WORD MSGSTAT 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


3GET NEXT BYTE COUNT 
sDONE ALL BYTES? 

3;8R IF YES 

300 ANOTHER BYTE COUNT 


s//////////7/7 END SUBTEST S///4//4///7 
L10064: 
TRAP CsESuB 


sANY FATAL ERRORS ? 

;BRANCH IF NOT 

sTRY TO DROP THE UNIT 

300 ITERATIONS? 

s6R IF NO 

;LOOP UNTIL ITERATIONS DONE 


AAA AA11/ EXIT TEST SAAAAAAA44 
‘TRAP 
. WORD 


CSExItT 
L10056-. 


sMASK OF UNTESTED BITS IN READ STATUS BYTES 


sUNTESTED BITS ARE SET TO 1 

:BYTE O MASK 

sBYTE 1 MASK (PARERR, IRESV2, IRESV1) 
sBYTE 2 CTIMER A,TIMER B,UNDEF INED<1:0>) 


D13 


- J = - 
tex “ot BOBPRE TES Pre o PERO: VtAdse PTF BP TPMT 17202 SEQ 159 

sees 046121 000 BYTE 0 sMAKE IT EVEN 
3363 046122 TL7EXP: sBEGIN EXPECTED DATA BUFFER 
3364 046122 000000 19] 0 sMESSAGE TYPE 
3365 046124 000000 WORD 0 sOATA FIELD LENGTH 
3366 046126 000000 WORD 0 sRBPCR 
3367 046130 000000 . WORD 0 sXSTO 
3368 046132 000000 0 sXST1 
3369 046134 000000 WORD 0 +xST2 
3370 046136 000000 . WORD 0 sXST3 
3371 046140 000000 . WORD 0 +XST4 CALWAYS PRESENT FOR WRITE SUB. ) 
3372 046142 TI7EXSTA: .BLKB 66. sEXPECTED READ STATUS AND WRITE FIFO DATA 
thy 046244 TL7EXEND: sEND EXPECTED DATA BUFFER 
tty 046244 TL7WFDATA: .BLKB 66. sWRITE FIFO EXPECTED DATA BUFFER 

6 
3377 se 
3378 sLOCAL TEXT MESSAGES FOR TEST 
3379 3- 
3380 
3381 046346 106 111 106 TST17ID0: -ASCIZ ‘FIFO Exerciser’ 
3382 046365 127 122 111 T17SSR: .ASCIZ ‘WRITE CHARACTERISTICS Failed’ 
3383 046422 127 122 111 T172SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Misc) Failed’ 
3384 046466 127 122 111 T1i73SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read Status) Failed’ 
3385 046533 127 122 111 T174SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Nor) Failed’ 
3386 046576 127 122 111 T175SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write FIFO) Failed’ 
3387 046642 127 122 111 T176SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read FIFO) Failed’ 
3388 046705 106 111 106 T1I71CMP:.ASCIZ ‘FIFO Status in WORD @9 Incorrect after Initialize’ 
3389 046767 122 145 141 T1L72CMP:.ASCIZ ‘Read FIFO Date not equal to Write FIFO , Data is in WORD 08° 
3390 047063 106 111 106 T173CMP:.ASCIZ ‘FIFO Status (In WORD 09) Incorrect after WRITE FIFO’ 
3391 047147 106 111 106 T1I74CMP:.ASCIZ ‘FIFO Stetus (In WORD @9) Incorrect after READ FIFO’ 
3392 047232 122 145 141 T17SCMP:.ASCIZ ‘Read FIFO Date not equal to Write FIFO Data’ 
3393 047306 106 111 106 T176CMP:.ASCIZ ‘FIFO Status (In WORD 09) Incorrect after READ FIFO from an Empty FIFO’ 
oo. 047414 106 111 106 wichita > ‘FIFO Status (In WORD 09) Incorrect after RESET FIFO: 

EV 
3396 
3397 5° 
3398 3; CLEAR MESSAGE BUFFER 
3399 s 
3400 047500 T17CLRBUF : 3 
3401 047500 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
3402 047504 012701 047762’ MOV @T176FR,R1L ;GET MESSAGE BUFFER ADDRESS 
3403 047510 012702 000120 MOV @T17BEND-T17BFR,RO sSIZE OF MESSAGE BUFFER IN BYTES 
3404 047514 105021 108: CLRB (R1)-> ;CLEAR A BYTE 
3405 047516 005302 DEC Ro 3; DONE ? 
3406 047520 003375 BGT 10$ 3BR IF NO 
3407 047522 000207 RTS PC sRETURN 
3408 
3409 ge 
core 3; SETUP T17PK2 PACKET FOR READ STATUS 
.- 

3412 047524 T17SR0: 
3413 047524 004737 047500’ JSR PC, T1L7CLRBUF ;CLEAR MESSAGE BUFFER 
3414 047530 012700 050120’ MOV @T170T2,R0 sWRITE SUBSYSTEM DATA BUFFTR 
3415 047534 112720 000005 MOVB PW. RDSTATUS,(RO)-> sSTORE READ STATUS COMMAND IN BSELO 
3416 047540 105010 CLRB CRO) ;CLEAR BSEL1 


3417 047542 000207 RTS PC sRE TURN 
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047544 
047544 
047550 
047554 
047560 
047564 


047566 
047566 
047572 
047576 
047602 
047606 
047610 


047646 
047646 
047652 
047656 
047062 


004737 
012700 
112720 
112710 
000207 


004737 
012701 
112721 
052700 
110011 
000207 


004737 
012701 
112721 
110021 


th 


MACRO M1113 01-FEB-84 17:02 SEQ 160 
TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 


047500’ 
050120' 
000004 


047500' 
050120' 
000003 


3¢ 
:; SETUP T17PK2 PACKET FOR WRITE MISC RESET FIFO 


3 - 
TLI7RSFIF; 
JSR PC, T17CLRBUF sCLEAR MESSAGE BUFFER 
MOV #T170T2,R0 sWRITE SUBSYSTEM DATA BUFFER 
MOVB OPW .WMISC,(CRO)+ sSTORE WRITE MISCELLANEOUS IN BSELO 
MOVB OMS .RSFIF!IMS.RSTAP,(RO) ;STORE BSEL1 CLEAR FIFO CODES 
RTS PC sRE TURN 


SETUP T17PK2 PACKET FOR WRITE NPR 


T: 
RO CONTAINS BSEL1 NPR DATA 
SETS NP.WRP SINCE IF O IT WRITES WRONG PARITY. 


17SNPR: 
JSR PC, T17CLRBUF sCLEAR MESSAGE BUFFER 
MOV @T170T2,R1 sWRITE SUBSYSTEM DATA BUFFER 
MOVB OPW.WNPR,CR1)> sSTORE WRITE NPR IN BSELO 
BIS ONP .WRP ,RO sDON'T WRITE WRONG PARITY 
MOVB RO,CR1) sSTORE NPR DATA IN BSEL1 
RTS PC s;RE TURN 

3? 

s SETUP T17PK2 PACKET FOR WRITE FIFO 

; 

: INPUT: 

3 RO CONTAINS BYTE COUNT 

3 Ri CONTAINS DATA PATTERN BLOCK ADDRESS 

3: 

TL7WF IF: 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
JSR PC, T17CLRBUF sCLEAR MESSAGE BUFFER 
MOV @T170T2,R2 sWRITE SUBSYSTEM DATA BUFFER 
MOVB OPW. WFIFO,CR2)>+ sSTORE WRITE FIFO IN BSELO 
MOVB RO,(R2)> sSTORE BYTE COUNT IN BSEL1 
CLR (R2)+ sCLEAR SEL2 (UNUSED) 

10%; MOVB CR1)+,CR2)> sSTORE DATA PATTERN BYTE 
DEC RO sDONE ALL BYTES? 
BGT 10$ ;BR IF NO 
RTS Pc sRETURN 


3° 
s SETUP T17PK2 PACKET FOR READ FIFO 


3 

3; INPUT: 

8 RO CONTAINS SEL2 BYTE COUNT 

3° 

TL7RF IF: 
JSR PC, T17CLRBUF sCLEAR MESSAGE BUFFER 
MOV @7170T2,R1 sWRITE SUBSYSTEM DATA BUFFER 
MOVB OPW. RFIFO,CR1)>+ s;STORE READ FIFO IN BSELO 


MOVB RO,(R1)>+ sSTORE BYTE COUNT IN BSEL1 


F1s 


TSVS - HARDWARE TESTS MACRO M1113 01-FEB- 17:02 
TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 


047664 


047666 
047666 
047672 
047676 
047700 
047702 
047704 


047706 
047706 
047712 
047716 
047722 
047724 
047726 
047730 


047732 


047740 
047740 
047742 
047744 
047746 


047750 
047750 
047752 
047754 
047756 
047760 


047762 
047762 
047764 
047766 
047770 
047772 
047774 
047776 
050000 


050002 
050102 


000207 RTS PC 
3° 
; CLEAR EXPECTED DATA MESSAGE BUFFER 
= 
TL7CLEXP: 
012701 046122’ MOV @TL7EXP,R1 
012700 000122 MOV @T17EXEND-T17EXP,RO 
105021 10$: CLRB (R1)+ 
005300 DEC RO 
003375 BGT 10% 
000207 RTS PC 


SEQ 161 


;RETURN 


sGET EXPD ADDRESS 
sGET EXPO SIZE 
;CLEAR A BYTE 
sDONE? 

;68R IF NO 

sRETURN 


i*¢ 
sSet WORDS 0-7 of expd message buffer = to recv since not testing 


Ned 

TL7SETEXP: 
012702 046122’ MOV @T1L7EXP ,R2 
012703 047762: MOV OT1L7BFR,RS 
012700 000010 MOV #8. ,RO 
012322 S$: MOV (R3)+,CR2)+ 
005300 DEC RO 
003375 BGT S$ 
000207 RTS PC 


-BLKB 10-<.-TSV2E7> 
3 
sWRITE CHARACTERISTICS COMMAND PACKET 


é 
T17PACKET: 
100004 . 100004 
047750' «WORD TI7DATA 
000000 -WORD O 
000012 «WORD 10. 
T1I7DATA: 
047762’ -WORD T17BFR 
000000 .WORD O 
000024 «WORD 20. 
000000 -WORD O 
000000 -WORD O 
sMESSAGE BUFFER FOR ALL TEST 6 COMMANDS 
T17BFR: 
000000 -WORD O 
000000 -WORD O 
000000 «WORD O 
000000 -WORD O 
000000 -WORD O 
000000 -WORD O 
000000 -WORD O 
000000 -WORD O 
TL7BFSTA: .BLKB 64, 
T17BEND: 


3GET EXPO 

sGET READ STATUS RECV BUFFER 
sSET WORDS 0-7 EXP=RECV 

:SET ExXPD=RECV 

sD0NE WORDS 0-7 WORDS? 

3;BR IF NO 

;RETURN 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sMINIMUM MESSAGE PACKET SIZE 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sESS,EN6 EAI, ERI 
sEXTENDED FEATURES UNIT NO. ETC. 


sBEGIN MESSAGE BUFFER 

sMESSAGE TYPE 

sDATA FIELD LENGTH 

;RBPCR 

:XSTO 

sXST1 

3xST2 

sxST3 

sXST4 CALWAYS PRESENT FOR WRITE SUBSYSTEM 
sREAD STATUS AND WRITE FIFO BUFFER 
sEND OF MESSAGE BUFFER 


° 
sWRITE SUBSYSTEM READ STATUS COMMAND PACKET 


G13 


TSVS - HARDWARE TEST MACRO M1113 01-FEB- 17:02 Q 16 
TEST 6: SUBTEST 6: Piro Vv RIFT Abze 1 PIES TEST S26 162 
3534 3 
3536 050102 .BLKB 10-<., -TSV2E7> 
3538 050110 T17PKe: 
3539 050110 100006 WORD P .WRTSUBIP. ACK sWRITE SUBSYSTEM WITH ACK 
3540 050112 050120’ . WORD T170T2 sLOW ADDRESS OF DATA BLOCK 
3541 050114 000000 . WORD 0 sHIGH ADDRESS OF DATA BLOCK 
eet 050116 000012 . WORD 10. sMINIMUM MESSAGE PACKET SIZE 
3544 050120 T170Te: ;DATA BLOCK 
3545 050120 000 BYTE 0 ;BSELO 
3546 050121 000 BYTE 0 ;BSEL1 
3547 050122 000000 Oo ;SEL2 
oe 050124 BLKB 66 sWRITE FIFO DATA OUTPUT BUFFER 
9 
3550 050226 ENDOTST 
050226 L10056: 
955 050226 104401 TRAP CSETST 
1 
cos -SBTTL TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 
3¢ 
3554 ; TEST DESCRIPTION: 
3555 3 
3556 3 
3557 ; TEST STEPS: 
3558 ; 
3559 ; REPEAT FOR LOOPCNT 
3560 3 BEGIN 
3561 ; Write to TSSR register to soft initialize the controller 
3562 ; Do WRITE CHARACTERISTICS to check for Extended Features Switch 
3563 : If Extended Features Hardware Switch Clear then: 
3564 : Do Write Subsystem Write Miscellaneous to Set Extended Features. 
3565 ; Do WRITE CHARACTERISTICS to select reserved unit 7 
3566 3 Do a Write Subsystem READ STATUS 
3567 : If any transport interface signals are asserted then Print Error 
3568 ; END 
3569 t-- 
3570 
3571 
3572 050230 BGNTST 
050230 T?:: 
3577 050230 012700 050736’ MOV @TST18ID,RO sASCII MESSAGE TO IDENTIFY TEST 
3578 050234 004737 016322' JSR PC,T SETUP 300 INITIAL TEST SETUP 
3579 050240 012737 000012 002216’ MOV #10. ,.OOPCNT ;PERFORM 10 ITERATIONS 
3580 050246 T18LOOP: 
3581 ; Write to TSSR register to soft initialize the controller 
3582 050246 5%: 
3583 050246 004737 015604’ JSR PC,SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 
3584 050252 103405 BCS 10$ ;8R IF SOFT INIT OKAY 
3585 050254 010001 MOV RO,R1 sSAVE CONTENTS OF TSsR 
3586 050256 ERROF ERRNO, SF IERR, SF IMSG sDEVICE FATAL DURING INIT 
050256 104455 TRAP CSEROF 
050260 001274 .¥ORD 700 
050262 003646’ .WORD SFIERR 
ese? 050264 011644’ . WORD SF IMSG 
3588 ; Do WRITE CHARACTERISTICS to check for Extended Features Switch 


3589 050266 005037 002222’ 10$; CLR FATFLG sCLEAR FATAL ERROR FLAG 


TSVS -_HARD 


TEST ?: 


WARE 
STATIC 


TESTS 


012704 
004737 


103407 
010001 


104455 
001275 
050775’ 
011656' 
005237 


104406 


012701 
032761 


012701 


051420’ 
010472" 


002222" 


051442' 
000200 


051266' 
051470' 
000000 


016146' 


002222' 


002222’ 
051420’ 
010472' 


002222' 


051442' 


000012 


12$: 


22%: 


30$: 


42%: 


F13 


TRANSPORT BUS THttAFAce Tesi’ 1722 


MOV @TLBPACKET ,R4 

JSR PC,.WRTCHR 

FORCERROR 12s 

6cs 15$ 

MOV RO,R1 

NEXT .ERRNO 

ERRDF ERRNO, T18SSR,PKTSSR 
INC FATFLG 

CKLOOP 


SEQ 163 


sGET THE ADDRESS OF COMMAND PACKET 
sD0 WRITE CHARACTERISTICS COMMAND 

s@@OFORCE ERROR IF FORCER=1 
BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 701 
-WORD T18SSR 


WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


TRAP CSsCLP1 


I¥ Extended Features Hardware Switch Clear then: 
Do Write Subsyecem Write Miscellaneous to Set Extended Features. 


MOV @T1L6BFR,R1 

BIT 0X2. EXTF ,xXST2(R1) 

BNE 30% 

JSR PC, T18SMISC 

MOV @T18PK2,R4 

MOV R4, TSOBCRS) 
PC,.CHKTSSR 

FORCERROR 228 

BcS 30% 

MOV RO,R1 

NEXT .ERRNO 

ERRDOF ERRNO,T182SSR,PKTSSR 

INC FATFLG 

CKLOOP 


sMESSAGE BUFFER ADDRESS 
SEXTENDED FEATURES SWITCH SET? 
3B8R IF YES 
sSETUP PACKET FOR WRITE MISCELLANEOUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

;@@DFORCE ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 702 
-WORD T182SSR 
-WORD PKTSSR 
;SET FATAL ERROR FLAG 
s;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


Do ere yaaa to select reserved unit 


CLR 

MOV eTLBPACKET, R4 
SR PC,WRTCHR 

FORCERROR 42$ 

ecs 50$ 

MOV RO,R1 

NEXT .ERRNO 

ERRDOF ERRNO, T18SSR,PKTSSR 
INC FATFLG 

CKLOOP 

Clear mess buffer 

MOV #T18BFR,R1 


sCLEAR FATAL ERROR FLAG 

sGET THE ADDRESS OF COMMAND PACKET 

3:00 WRITE CHARACTERISTICS COMMAND 
sQ@0FORCE ERROR IF FORCER=1 

3;BR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 


TRAP CSEROF 
. WORD 03 

-WORD T18SSR 
-WORD PKTSSR 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sGET MESSAGE BUFFER ADDRESS 


TSVS -_ HARDWARE 
TEST 7: STATIC 


TESTS MACRO M1113 01-FEB-84 17:02 
TRANSPORT BUS INT bar ace TEST 
013700 051434’ MOV T1I8DATA+4,RO 
105021 60$: CLRB CR1)-+ 
005300 DEC 
003375 6GT 60% 
3 " a se . ie READ STATUS 
004737 051246‘ 
012704 051470' MOV eriomcs, R4 
010465 000000 MOV R4, TSDBCRS) 
004737 016146' JSR PC,CHKTSSR 
FORCERROR 62$ 
103407 6cs 70$ 
€10001 MOV RO,R1 
NEXT. ERRNO 
62$: ERROF ERRNO, T183SSR,PKTSSR 
104455 
001300 
051076' 
011656’ 
005237 002222‘ INC FATFLG 
70$: CKLOOP 
104406 
3 
3 
004737 051310' JSR PC, TI8SETEXP 
8 
005000 CLR 
012701 051442’ MOV #T18BFR,R1 
012702 050706’ MOV @T18EXP ,Re 
012703 000012 MOV #10. ,R3 
004737 011310’ JSR PC ,CKMSG2 
FORCERROR 82$,NOTSSR 
103404 bcs 90$ 
NEXT .ERRNO 
82s: ERRHRD ERRNO, T18CMP,MSGSTAT 
104456 
00130 
051143’ 
012160' 
90$: CKLOOP 
104406 
005737 002222: TST FATFLG 
001402 BEQ 160$ 
004737 017014' JSR PC,CKDROP 
004737 016270' 160$ JSR PC, TSTLOOP 
103002 BCC 165$ 
000137 050246' JMP T18L00P 
165$ 
EXIT TST 
104432 
000606 


I13 


SEQ 164 


sSIZE OF MESSAGE BUFFER IN BYTES 


sCLEAR A BYTE 

+DONE? 

18R IF NO 

sSETUP PACKET FOR READ STATUS 


sGET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE “area TO EXECUTE 


@aAOFORCE ERROR IF FORCER=1 
RETURN) 


sWAIT be SSR T 


;BR IF CARRY SET (GOOD 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


. WORD 
- WORD 


sSET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG =. 


CSERDOF 
704 
T183SSR 
PKTSSR 


CsCLP1 


Set first 8 words of expd message buffer = rat recv since not testing 
Set unused bits in Read Status expd equal rcv 


3¢ 
sLOCAL STORAGE FOR THIS TEST 


3SET SOME EXPD TO RECV 


sHIGH RECV ADORESS FOR CKMSG2 
sLOW RECV ADORESS FOR CKMSG2 
sEXPD ADDRESS 

sNUMBER OF WORDS TO COMPARE 
sEXPD EQUAL RECV? 


3980 

;BR IF YES 

sREPORT ERROR 
TRAP 
-WORD 
. WORD 


. WORD 
sLOOP ON ERROR, IF FLAG SET 
TRAP 


sANY FATAL ERRORS ? 

:BRANCH IF NOT 

;TRY TO DROP THE UNIT 

300 ITERATIONS? 

;8R IF NO 

;LOOP UNTIL ITERATIONS DONE 


TRAP 
- WORD 


If any transport interface signals are asserted then Print Error 


CSERHRD 
705 
T18CMP 
MSGSTAT 


CsCLP1 


CsExIT 
L10065-. 


TSVS -_ HARDWARE TESTS 
TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 


050736 
050775 
051032 
051076 
051143 


051246 


012700 
112720 
105010 
000207 


012700 
112720 
112710 
000207 


J135 


MACRO M1113 01-FEB- a 17:02 


020 


051500’ 
000005 


T18MSK; 
BYTE tC<000> 
BYTE tC<340> 
.BYTE tC<277> 


T18EXxP; 


77,020 


o 
ow oooooooooco 


T16xXS: .BYTE 
. WORD 


z+ 
sLOCAL TEXT MESSAGES FOR TEST 
ge 


TST18ID: -ASCIZ ‘Static Tran 


SEQ 165 


sMASK OF UNUSED BITS IN READ STATUS BYTES 
sBYTE O MASK 

sBYTE 1 

:BYTE 2 

sMAKE IT EVEN 


nenhan’'* DATA BUFFER 
sMESSAGE TYPE 

;DATA FIELD LENGTH 

;RBPCR 

;XSTO 

3XST1 

:xST2 

3XST3 

3XST4 CALWAYS PRESENT FOR WRITE SUB) 
sREAD STATUS BYTE 1/0 

sREAD STATUS BYTE 2 


sREAD STATUS BYTE O/1 EXPECTED BASE 
sREAD STATUS BYTE 2 EXPECTED BASE 


rt Bus Interface’ 


Spo 
T18SSR: .ASCIZ ‘WRITE CHARACTERISTICS Failed’ 
T182SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Misc) Failed’ 
T183SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read Status) Failed’ 
TISCMP: .ASCIZ ‘Transport Bus Interface Signals NOT Negated After Unit 7 Selected’ 


3¢ 
; SETUP T18PK2 PACKET FOR READ STATUS 
iad 

T18SRD: 


SAVREG 

MOV #T18DT2,RO 

MOVB OPW. RDSTATUS,(RO)>+ 
CLRB CRO) 

RTS PC 


3¢ 
; SETUP T18PK2 PACKET FOR WRITE MISC. 
g° 
T1I8SMISC: 

SAVREG 


MOV #T180T2,RO 
MOVB OPW.WMISC ,CRO)+ 
MOVB OMS .EXT,CRO) 
RTS PC 


sSAVE R1-RS UNTIL NEXT RETURN 
sWRITE SUBSYSTEM DATA BUFFER 

sSTORE READ STATUS COMMAND IN BSELO 
;CLEAR BSEL1 

;RETURN 


sSAVE R1-RS UNTIL NEXT RETURN 

sWRITE SUBSYSTEM DATA BUFFER 

sSTORE WRITE MISCELLANEOUS IN BSELO 

ot a a! EXTENDED FEATURES IN BSEL1 
; 


3? 
;Set first 8 words of expd ocenes buffer = to recv since not testing 
te 


3 Set unused bits in Read 
| ed 


tus expd equal revd 


K13 


TSVS - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 SEQ 166 
TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 
3734 051310 TISSETEXP: 
3735 051310 012702 050706’ MOV @T1BEXP ,R2 ;GET EXPD 
3736 051314 012703 051442’ MOV OT18BFR,R3 sGET READ STATUS RECV BUFFER 
3737 051320 012700 000010 MOV 08. ,RO 3SET FIRST 8 WORDS EXP=RECV 
3738 051324 012322 S$: MOV CR3)+,CR2)+ 3SET EXPD=RECV 
3739 051326 005300 DEC kO s;DONE FIRST 8 WORDS? 
3740 051330 003375 BGT S$ :;6R IF NO 
3741 051332 012701 050702’ MOV @T16MSK,R1 ;GET UNUSED BIT MASK 
3742 051336 013712 050732’ MOV T18xS,(R2) ;SETUP BASE EXPECTED BYTE 1/70 
3743 051342 013762 050734’ 000002 MOV T18xXS+2,2(R2) sSETUP BASE EXPECTED BYTE 2 
3744 051350 011300 MOV (R3),RO ;GET RECV BYTE 1 AND BYTE O 
3745 051352 041100 BIC CR1),RO ;CLEAR ALL BUT UNUSED 
3746 051354 040012 . BIC RO,(R2) sCLEAR UNUSED IN ExP 
3747 051356 050012 BIS RO,(R2) ;SET UNUSED EXPD=RECV FOR COMPARE 
3748 051360 016300 000002 MOV 2(R3),RO ;GET RECV BYTE 2 
3749 051364 046100 000002 BIC 2(R1),RO ;CLEAR ALL BUT UNUSED 
3750 051370 040062 000002 BIC RO,2(R2) ;CLEAR UNUSED IN EXPD 
3751 051374 050062 000002 BIS RO,2(R2) ;SET UNUSED EXPD=RECV FOR COMPARE 
3752 051400 105062 000003 CLRB 3(R2) ;CLEAR EXPD BYTE 3 CUNUSED) 
3753 051404 105063 000003 CLRB 3(R3) ;CLEAR RECV BYTE 3 CUNUSED) 
dead 051410 000207 RTS PC ;RETURN 
o737 051412 -BLKB 10-<.,-TSV2E7> 
7 
se ;WRITE CHARARTERISTICS COMMAND PACKET 
: 
3762 051420 TL@PACKET: ;COMMAND PACKET FOR TEST 
3763 051420 100004 .WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 
3764 051422 051430’ .WORD Ti8DATA sADDRESS OF CHARACTERISTICS BLOCK 
3765 051424 000000 .WORD O 
sree 051426 000012 .WORD 10. ;MESSAGE PACKET MINIMUM SIZE 
3768 051430 TI8DATA: ;CHARACTERISTICS DATA BLOCK 
3769 051430 051442’ .WORD T18BFR sADDRESS OF MESSAGE BUFFER 
3770 051432 000000 .WORD 0 
3771 051434 000024 -WORD 20. ;LENGTH OF MESSAGE BUFFER 
3772 051436 000000 .WORD 0 ;ESS,ENB,EAI,ERI 
S773 051440 000007 -WORD 7 ;SELECT RESERVED UNIT 7 
3775 
3776 051442 T18BFR: sMESSAGE BUFFER 
3777 051442 000000 .WORD 0 sMESSAGE TYPE 
3778 051444 000000 -WORD 0 ;DATA FIELD LENGTH 
3779 051446 000000 .WORD O ;RBPCR 
3780 051450 000000 -WORD 0 3XSTO 
3781 051452 000000 -WORD O ;XST1 
3782 051454 000000 -WORD O :xST2 
3783 051456 000000 .WORD O 3xST3 
3784 051460 000000 -WORD O 3XST4 CALWAYS PRESENT FOR WRITE SUBSYSTEM 
3785 051462 000000 .WORD O sREAD STATUS BYTE 1/0 RETURNED 
s7e6 051464 000000 -WORD O ;READ STATUS BYTE 2 
. 
thes ;WRITE SUBSYSTEM READ STATUS COMMAND PACKET 
HH 
3791 051466 -BLKB 10-<.-TSV2E7> 
3793 051470 T18PK2; 


3794 051470 100006 -WORD P.WRTSUB:P.ACK sWRITE SUBSYSTEM WITH ACK 


TSVS -_HARDWARE 
TEST 7: STATIC 


051510 
051510 
051510 
051514 
051520 
051526 


Lis 


TRANSPORT BUS INTERFACE TEST. *7*0? 


051500’ 
000000 
000010 


104401 


012700 057722’ 
004737 016322’ 
012737 000012 002216' 


T180T2: 


.WORD T18DT2 sLOW ADDRESS OF DATA BLOCK 
-WORDB O sHIGH ADDRESS OF DATA BLOCK 
»WORD 8. ;BUFFER EXTENT 
sDATA BLOCK 
BYTE O sBSELO 
-BYTE O sBSEL1 
-WORDB O ;SEL2 
-WORDB O sDATA 
ENOTST 
L10065S: 
TRAP 


-SBTTL TEST 8: TRANSPORT BUS INTERFACE LOOPBACK TEST 


zee 
; TEST DESCRIPTION: 


Do Subtest 1 - Loopback Control signals test 
Do Subtest 2 - Loopback Read/Write signals test 
Do Subtest 3 - Loopback Write Strobe test 
a Subtest 4 - Loopback Read Strobe test 
BGNTST o 
MOV @TST19ID,RO ;ASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 
i MOV #10. ,LOOPCNT sPERFORM 10 ITERATIONS 


This test verifies the controller's Transport Bus 
drivers, receivers, and “eo loopback logic. Note 
that the Static Transport Bus test must have run 
correctly for this test to provide meaningful results. 


TEST STEPS: 
REPEAT FOR LOOPCNT 
BEGIN 


-SBTTL TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 


see 
; TEST 8: SUBTEST 1: 


SUBTEST DESCRIPTION: 


This subtest verifies the Transport Control loopback 
path can transmit and receive correctly. The 
control signals are all loopback signals other 

than the read/write data (IW<7:0> and IR<7:0>). 


TEST STEPS: 


SEQ 167 


CSsETST 


M13 


TSVS -_HARDW TEST MACRO_M -FEB- 7:02 
test 8: SOBTEST ie PoorBa K COMPAS. Shenae 2st ’ — 
3853 : The loopback signals IFAD,ITADO,ITAD1 are the tape unit select 
3854 8 lines. Since reserved unit 7 must remain selected these signals 
3855 ’ ere always set low. This further means the signals they drive 
os : CISPEED,IRDY,IONL) are only tested in the low state. 
: 
3858 ; BEGIN 
3859 ; Write to TSSR ister to soft initialize the controller 
3860 ; Do WRITE CHARACTERISTICS to check for Extended Features Switch 
3861 3 If Extended Features Hardware Switch Clear then: 
3862 3 Do Write _eeretes Write Miscellaneous to Set Extended Features. 
3863 3 Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
3864 ; Do a Write Subsystem WRITE NPR to set tape direction out and Loopback 
3865 3 Do Write Subsystem Write Control to CLEAR loopback signals group 1. 
3866 3 Do Write Subsystem Write Format to CLEAR loopback signals group a 
3867 ; (the loopback signals have to be cleared here due to the flip-flops 
3868 3 that are set on a 1 to O transition CIHER, IFMK,ICER)) 
3869 3 Do a Write Subsystem Write Misc to Reset Tape Status F-FLOPS 
3870 3 Do a Write Subsystem READ STATUS 
3871 ; If all Tape Status 2 CICER,IFMK,IHER) flip-flop 
ote | 3 signals NOT=0 Then Print Error 
3 
3874 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
3875 3 BEGIN 
3876 : Do Write Subsystem trite Control to Drive loopback signals group 1. 
3877 ; Do Write Subsystem Write Format to Drive loopback signals group 2. 
3878 : Do a Write Subsystem READ STATUS 
3879 3 If loopback data NOT= date sent Then Print Error 
3880 ; Do a Write Subsystem Write Misc to Reset Tape Status F-FLOPS 
3881 3 Do a Write Subsystem READ STATUS 
3882 ; If all Tape Status 2 CICER,IFMK,IHER) flip-flop 
3883 ; signals NOT=0 Then Print Error 
3884 ; 
3885 -- 
3886 051526 BGNSUB 34/////////// BEGIN SUBTEST /////////7/ 
051526 T8.1: 
sear 051526 104402 TRAP C$BSUB 
3888 ; Write to TSSR register to soft initialize the controller 
3889 051530 S$: 
3890 051530 004737 015604' JSR PC,SOF INIT ;WRITE TO TSSR TO SOFT INITIALIZE 
3891 051534 103405 BCS 10$ ;BR IF SOFT INIT OKAY 
3892 051536 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
3893 051540 ERRDF ERRNO, SFIERR, SF IMSG ;DEVICE FATAL DURING INIT 
051540 104455 TRAP CSEROF 
051542 001440 WORD 800 
051544 003646' -WORD SFIERR 
051546 011644' . WORD SF IMSG 
3894 ; Do WRITE CHARACTERISTICS to check for Extended Features Switch 
3895 051550 005037 002222’ 10$: CLR FATFLG ;CLEAR FATAL ERROR FLAG 
3896 051554 012704 062050’ MOV #T19OPACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 
3897 051560 004737 010472’ JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
3898 051564 FORCERROR les ;@@D0FORCE ERROR IF FORCER=1 
3899 051600 103407 BCS 15$ ;BR IF CARRY SET (GOOD RETURN) 
3900 051602 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
3901 051604 NEXT .ERRNO 
3902 051604 12$: ERRDF ERRNO, T19SSR,PKTSSR ;sDEVICE FATAL SSR FAILED TO SET 
051604 104455 TRAP CSEROF 


TSVS - HARDWARE 
TEST 8: SUBTEST 1: 


051712 
051712 


051714 
051720 
051724 
051730 
051744 
051746 
051750 


TESTS 


001441 
057763' 
011656’ 
005237 


104406 


012701 
032761 


MACRO M 
LOOPBACK CON 


002222' 


062072' 
000200 


061722" 
062220' 
000000 


016146' 


002222' 


000000 
016146' 


000012 


22: 


42s: 


62%: 


N13 


7:02 SEQ 169 
-WORD 801 
-WORD T19SSR 
-WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 


CKLOOP sLOOP ON ERROR, IF FLAG a 


CSCLP1 
If Extended Features Hardware Switch Clear then: 
Do Write Subsystem Write Miscellaneous to Set Extended Features. 
MOV @T19BFR,R1 sMESSAGE BUFFER ADDRESS 
BIT @X2. EXTF, xST2cR1) }EXTENDED FEATURES SWITCH SET? 
BNE 30$ 3;BR IF YES 
JSR PC, T19SEXT sSETUP PACKET FOR WRITE MISC INVERT 


MOV @T19PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSOBCRS) s;SET THE PACKET ADDRESS TO EXECUTE 
PC, CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 22s ;@@OFORCE ERROR IF FORCER=1 


BCS 30$ :BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


ERROF ERRNO, T192SSR,PKTSSR sDEVICE FATAL SSR a 
-WORD 802 


-WORD T1192SSR 
WORD PKTSSR 


INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSsCLP1 
Do WRITE me to select reserved unit 
CLR FLG ;CLEAR FATAL ERROR FLAG 
MOV OTIGPACKET. R4 ;GET THE ADDRESS OF COMMAND PACKET 
JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
FORCERROR 423s ;Q@QDFORCE ERROR IF FORCER=1 
bcs 50$ ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
ERRDF ERRNO, T19SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CsSERDF 
WORD 803 
WORD T19SSR 
WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 


CKLOOP ;LOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 
Do a Write Subsystem WRITE NPR to set tape direction out and Loopback 
MOV @NP .OUT,RO ;S_T TAPE DIRECTION OUT 
BIS ONP LOOP ,RO ;SET LOOPBACK ENABLE 


JSR PC, T19SNPR ;SETUP T19PK2 FOR WRITE NPR 

MOV @T19PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSOBCAS) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 62$ ;@@O0FORCE ERROR IF FORCER=1 
BCS 70$ ;BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 


ERRDF ERRNO,T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 804 


TSVS - HARDWARE TESTS 
TEST 8: SUBTEST 1: LOOPBACK CONT 


3944 
3945 


052270 


060131’ 
011656' 
005237 


104406 


MACRO Mil 


002222" 


000000 
016146' 


002222' 


061702’ 
062220' 
000000 


016146' 


002222’ 


061540’ 
062220' 
000000 


016146’ 


De 


Qu 


823: 


1028: 


1228; 


B14 


Be SEQ 170 


-WORD 1194SSR 


-WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 
Do Write Subsystem Write Control to CLEAR loopback signals group 1. 
Do Write Subsystem Write Format to CLEAR loopback signals grove 2. 
(the loopbeck signals nave to be cleared here due to the flip-flops 

that are set on a 1 to O transition (IHER, IFMK,ICER)) 

CLR RO sWRITE O'S 
BIC owCc .IFAD,RO sIFAD MUST ALWAYS «0 
BIC owC . IOTAD,RO sITADO MUST ALWAYS =0 


BIC owC .ILTAD,RO sITAD1L MUST ALWAYS +0 
JSR PC, TI9WCTL sSETUP PACKET FOR WRITE CONTROL 
MOV @T19PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 
PC,.CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 82$ s@BOFORCE ERROR IF FORCER=1 
ecs 90% sB8R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT ERR’ 
ERROF ERRNO,1T197SSR,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
«WORD 805 
-WORD 1T197SSR 
-WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CscLP1 
CLR RO sSET FORMAT DRIVE DATA=0 


sSETUP PACKET FOR WRITE FORMAT 


MOV @T19PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 1028 s@BOFORCE ERROR IF FORCER=1 
BcS 1108 sB8R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERRDF ERRNO,T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 806 
. WORD T198SSR 
-WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 


CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLPlL 
Do a Write Subsystem Write Misc to Reset Tape Status F -FLOPS 


JSR PC, TLORSF IF sSETUP PKT FOR WRITE MISC Reset Tape Status * -FLOPS 
MOV @T19PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4,TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 

JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 122% sQB0FORCE ERROR IF FORCER=1 

BcS 1308 sBR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERR 


. NO 
ERROF ERRNO,T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 


C14 


TEST “ay SUBTEST Es COOPBACRCUAPAGL StchhE Fst? #02 


052476 


052524 


001447 
060020' 
011656' 
005237 


104406 


004737 
012704 
010465 
004737 


103407 
010001 


104455 
001450 


060064 
011656" 
005237 


104406 
004737 
012701 
012702 
011211 
042711 
042711 
042711 
016261 
005000 


012701 
012702 
012703 
004737 


103404 


104456 
001451 
061023' 
012674' 


104406 


005037 
012703 
012300 
010337 
042700 
042700 
042700 
010037 


002222' 


061520' 
062220' 
000000 


016146' 


002222’ 


061760’ 


011310' 


057534" 
002752’ 


002316' 
000200 
000100 
000040 
002312’ 


000002 


1308; 


1328: 


1408: 


1528: 


1608: 


INC 
CKLOOP 


Do a Write Subsystem READ STATUS 


FATFLG 


SEQ 171 
woro | 75 
° 192S5SR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSsCLP1 


If as Tape Status 2 (ICER,IFMK,IHER) flip-flop 


@nele NOT=0 Then Print Error 


JSR PC, T19SRO 

MOV @TI9PK2,R4 
MOV R4, TSOBCRS) 
JSR PC,.CHKTSSR 
FORCERROR 132% 
BCS 1408 

MOV RO,R1 

NEXT ERRNO 

ERROF ERRNO, T193SSR,PKTSSR 
INC FATFLG 

CKLOOP 

JSR PC, TI9SETEXP 
MOV @TIIEXSTA,R1 
MOV @T1L9BFSTA,R2 
MOV C(R2),(R1) 

BIC @S1.ICER,(R1) 
BIC @S1.IFMK,(R1) 
BIC @S1.IHER,(R1) 
MOV 2(R2),2(R1) 
CLR RO 

MOV @T19BFR,R1 
MOV OT19EXP,R2 
MOV 20 ee 

JSR PC ,CKMSG2 
FORCERROR 152%,NOTSSR 
BCS 1608 

NEXT. ERRNO 


ERRHRD ERRNO, 1197CMP,MSGLOOP 


CKLOOP 


sSETUP PACKET FOR READ STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

sQ@OFORCE ERROR IF FORCER=1 
s6R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL. SSR FATLED TO SET 
TRAP 


CSERDF 
-WORD 808 
-WORD T193SSR 


WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
sSET WORDS O-7 EXPD=RECV (NOT TESTING) 
sGET EXPECTED READ STATUS 
sGET RECV READ STATUS 
3SET EXPD WORD 08 = RECV TEMP 
sSET EXPO ICER =0 
sSET EXPO IFMK =O 
sSET EXPO IHER =0 

sSET EXPO WORD @9 = RECV (NOT TESTING) 
iHIGH RECV ADDRESS FOR CKMSG2 

sLOW RECV ADDRESS FOR CKMSG2 

sEXPD ADDRESS 

sNUMBER OF BYTES TO COMPARE 

sEXPD EQUAL RECV? 

3 

:BR IF YES 

sREPORT ERROR 

TRAP CSERHRD 

. WORD 809 

WORD T197CMP 

WORD MSGLOOP 


;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLPL 


s REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 


20038; 


CLR T1LOPREV 

MOV @TSTBLK,RS 
MOV (R3)»+,RO 

MOV R3,TSTPTR 
BIC owC .IFAD,RO 
BIC owC . IOTAD,RO 
BIC owCc .T1TAD,RO 
MOV RO,DATA 


sINIT 1-0 TRANSITION FLAG 
sGET FIRST PATTERN ADORESS 
sGET A TEST PATTERN 

sSAVE POINTER INTO TSTBLK 
sIFAD MUST ALWAYS =0 
sITADO MUST ALWAYS «0 
sITADL MUST ALWAYS =0 
sSET DATA PATTERN 


D14 


TEx?“ sMABDHOEEr ES "Boop HREROCHAHAL QbcKRP- #547202 
PRU iSScRWPPHS*SErtE Arf "EGRHRBS BRiYERhoePDESY sienels orouw 1. 


013700 
004737 


004737 
012704 
010465 
004737 


103407 
010001 


104455 
001452 
060303’ 
011656' 
005237 


104406 


002312" 
062004’ 
061662' 
062220' 
000000 

016146' 


002222’ 


002312' 
062004 ' 


061702' 
062220’ 
000000 


016146' 


002222’ 


061520' 
062220’ 
000000 


016146' 


}@a0 


2128: 


23238: 


2528: 


"ISR PC. TTLSCNVT 
JSR PC, TI9WCTL 


MOV @T19PK2 ,R4 
MOV R4, TSOBCRS) 
JSR PC,CHKTSSR 
FORCERROR 2les 
BCS 22 

MOV RO,R1 

NEXT ERRNO 


ER 
ERROF ERRNO, T197SSR,PKTSSR 


INC FATFLG 
CKLOOP 


SEQ 172 


sGE Test PATTERN 
CONVERT PATTERN TO CONTRUL DRIVE MASK 
sRO CONTAINS WRITE CONTROL DATA HERE 
sSETUP PACKET FOR WRITE CONTROL 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADORESS TO EXECUTE 
sWAIT ge’ oaar TO SET 

ORCE ERROR IF FORCER=1 
3BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


-WORD 810 
-WORD 1197SSR 


WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


Do Write Subsystem Write Format to Urive loopback signals group 2. 
a TLOCNVT TO SETUP WRITE CONTROL PATTERN 


DATA,RO 
"ISR PC, TISCNVT 
SWAB RO 
JSR PC. TLOWFMT 
MOV @T19PK2 ,R4 
MOV R4, TSOB(RS ) 
PC, CHKTSSR 
FORCERROR 2328 
BCS 24 
MOV RO,R1 
NEXT .ERRNO 


ERROF ERRNO, T198SSR,PKTSSR 


INC FATFLG 
CKLOOP 


Do a Write nee stem READ STATUS 
JSR PC, T19SRD 
MOV oiems, R4 


MOV R4, TSDBCRS) 
JSR PC ,CHKTSSR 
FORCERROR 252s 
BCS 2603 

MOV RO,R1 

NEXT. ERRNO 


ERROF ERRNO, T193SSR,PKTSSR 


sGET TEST PATTERN 
sCONVERT PATTERN TO FORMAT DRIVE MASK 
sWRITE FORMAT DATA RETURNED IN HIGH BYTE 
sSETUP PACKET FOR WRITE FORMAT 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADORESS TO EXECUTE 
sWAIT “hyp SSR TO SET 
@SBOFORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 


-WORD 811 
«WORD T1198SSR 


-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


sSETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

sQ8@0FORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP C sEROF 
«WORD 812 


. WORD T193SSR 
-WORD  PKTSSR 


TSVS - HARDWARE TESTS 
TEST 8: SUBTEST 1: 


4073 005237 
4074 
104406 


4075 
4076 004737 
012701 


053212 


MACRO Mil 
LOOPBACK CONT 


002222’ 


061760' 


001000 


002000 


040000 
029000 
100000 
100000 


100000 
000002 
062072' 
057602’ 


000024 
011310' 


ze 
Qu 


000002 


2758: 


2808; 


2853: 


2883: 


2908: 


3028; 


E14 


7:02 7 
s} SEQ 173 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP C&CLPL 
If loopback data NOT= date sent Then Print Error 
JSR PC, TI9SSETEXP sSET WOROS 0-7 ne (NOT TESTING) 
MOV OTI9EXSTA, R1 sGET EXPECTED READ STATU 
MOV OTLOBFSTA.R2 sGET RECV READ STATUS 
MOV DATA,C(R1) sSET EXPD WORD 08 TO TEST DATA FIRST 
MOV T19PREV,RO sGET PREVIOUS DATA PATTERN 
MOV DATA,R3 sGET CURRENT PATTERN 
MOV @S1.IHER,R4 + SETUP IHER EXPECTED 
BIC R4,(R1) sSET EXPD IHER =0 
BIT R4,RO sPREVIOUS #1? 
BEQ 2753 3;6R IF NO 
BIT R4,R3 sCURRENT =0? 
BNE 2753 ;68R IF NO 
BIS R4,(R1) 3SET EXPD IHER 1 
MOV 0S1.IFMK,R4 ;SETUP IFMK EXPECTED 
BIC R4,(R1) sSET EXPD IFMK =0 
BIT R4,RO sPREVIOUS =1? 
BEQ 2808 36R IF NO 
BIT R4,R3 sCURRENT =0? 
BNE 280% ;68R IF NO 
BIS R4,(R1) sSET EXPD IFMK =1 
MOV #S1.ICER,R4 sSETUP ICER EXPECTED 
BIC R4,(R1) sSET EXPD ICER =0 
BIT R4,RO sPREVIOUS 1? 
BEQ 285% ;6R IF NO 
BIT R4,R3 sCURRENT #0? 
BNE 285% 368R IF NO 
BIS R4,CR1L) sSET EXPO ICER =1 
MOV R1),RO 3GET EXPO 


¢ 
If previous LIDENT= 
MOV 


@S1.IIDENT, a 


BIS R4,RO 

BIT R4, TLOPREV 
BEQ 288% 

BIT R4,R3S 

BEQ 288% 

BIC R4,RO 

BIS #S1.I2RES,RO 
BIS #S1.I1RES,RO 
BIC @S1.PARERR,RO 
BIT @S1.PARERR,(R2) 
BEQ 290% 

BIS gat, PARERR,RO 
MOV 0,(R1) 

MOV ache, 2(R1) 
CLR 

MOV OTL 9BFR, R1 
MOV OT19EXP ,R2 
MOV #20. ,R3 

JSR PC ,CKMSG2 
FORCERROR 302%,NOTSSR 
BCS 310% 

NEXT .ERRNO 


ERRHRD ERRNO, T198CMP,MSGLOOP 


WORD 
and current Tir * then ExPD= 0 


: ILIDEN 

sASSUME EXPD=1 
sPREVIOUS LIDENT=1? 
;8R IF NO 

:IS CURRENT IIDENT=1? 
368R IF NO 

3SET ExPD=0 

sIRESV2 EXPD ALWAYS=1 
sIRESV1 EXPD ALWAYS=1 
s IGNORE PARERR 

3IS PARERR SET IN RECV? 
;B8R IF NO 

3;SET IN EXPD 


else 1 


sSETUP FINAL EXPD IN WORD 08 

sSET EXPD WORD 09 = RECV (NOT TESTING) 
sHIGH RECV ADDRESS FOR CKMSG2 
sLOW RECV ADDRESS FOR CKMSG2 


sEXPD ADDRESS 


sNUMBER OF BYTES TO COMPARE 


sEXPD EQUAL RECV? 
3;980 

3;8R IF YES 
sREPORT ERROR 


TSVS - HARDWARE TESTS 


TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 


053212 
053214 
053216 
053220 
053222 
053222 


053224 
053230 
053234 
053240 
053244 


104456 
001455 
061111' 
012674’ 


104406 


004737 
012704 
010465 
004737 


103407 
010001 


104455 
001456 
060020' 
011656’ 
005237 


104406 


004737 
012704 
010465 
004737 


103407 
010001 


104455 
001457 
060064 ' 
011656’ 
005237 


F114 
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061540’ 
062220' 
000000 


016146' 


002222' 


061520' 
062220' 
000000 


016146' 


062072’ 
057602’ 
000024 

011310’ 


000002 


3108: 


3228: 


342$: 


350%: 


3628: 


CKLOOP 


SEQ 174 
TRAP CSERHRD 
-WORD 613 
«WORD T198CMP 
-WORD MSGLOOP 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


Do a Write Subsystem Write Mise to Reset Tape Stetus F-FLOPS 


JSR PC, TLORSF IF 


MOV OT19PK2,R4 

MOV R4, TSOBCRS) 

JSR PC,CHKTSSR 
FORCERROR 322% 

BCS 330% 

MOV RO,R1 

NEXT. ERRNO 

ERROF ERRNO, T192SSR,PKTSSR 
INC FATFLG 

CKLOOP 

Do a Write Subsystem READ STATUS 
JSR PC,719S 

MOV @T19PK2,R4 

MOV R4,TSOBCRS) 

JSR PC,CHKTSSR 

FORCE 2 

6cs 350 

MOV RO,R1 

NEXT. ERRNO 

ERROF ERRNO, 1T193SSR,PKTSSR 
INC FATFLG 

CKLOOP 

JSR PC, TI9SSETEXP 

MOV @T19EXSTA,R1 

MOV @T19BFSTA,R2 

MOV CR2),C(R1) 

BIC @S1.ICER,(R1) 

BIC 0S1.IFMK,(R1) 

BIC 9S1.IHER,(R1) 

MOV 2(R2),2(R1) 

CLR RO 

MOV @T1LOBFR,R1 

MOV @T19EXP ,R2 

MOV 020. ,R3 

JSR PC,CKMSG2 

FORCERROR 362$,NOTSSR 
BCS 37 

NEXT .ERRNO 


ERRHRD ERRNO, T197CMP ,MSGSTAT 


sSETUP PKT FOR WRITE MISC Reset STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

sQQO0FORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 614 
«WORD Ti92SSR 


WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG oo. 


sSETUP PACKET FOR READ STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT do SSR TO SET 

@SOFORCE ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CsCLP1 


CSEROF 
-WORD 815 
-WORD T193SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


WORDS 0-7 EXPD=RECV (NOT TESTING) 
EXPECTED READ STATUS 

RECV READ STATUS 

EXPD WORD #6 = RECV TEMP 

EXPO ICER =0 


PD WORD 09 = RECV (NOT TESTING) 
sHIGH RECV ADDRESS FOR CKMSG2 
sLOW RECV ADORESS FOR CKMSG2 
sEXPD ADDRESS 
sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


; 2880 
;BR IF YES 
sREPORT ERROR 


TSVS - HARDWARE TESTS 


TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 


053506 
053512 


053512 
053512 
053512 


053514 
053520 
053522 
053526 


104456 
001460 
061023’ 
012160’ 


104406 


013737 
013703 
020327 
103002 
000137 


104403 


005737 
001402 
004737 


G14 
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002312’ 
002316' 
003062' 


052502" 


002222" 
017014: 


057534' 


SEQ 175 
TRAP CSERHRD 
-WORD 816 
«WORD T197CMP 
-WORD MSGSTAT 
3708: CKLOOP sLOOP ON ERROR, IF FLAG _L! 
TRAP CSCLP1 
MOV DATA, T19PREV sSETUP PREVIOUS DATA FOR EXPD CALC. 
MOV TSTPTR,R3 sRESTORE CURRENT TSTBLK POINTER 
CMP R3,@TBLEND sEND OF TSTBLK? 
BHIS 400$ 368R IF YES 
JMP 200% 3:00 NEXT TSTBLK PATTERN 
400$: 
ENODSUB s774/1//1/71/4 END SUBTEST S/S///4///7/7/ 
L10067: 
TRAP CsESUB 
TST FATFLG sANY FATAL ERRORS ? 
BEQ 4608 ;BRANCH IF NOT 
JSR PC ,CKDROP sTRY TO DROP THE UNIT 
4603: 
-SBTTL TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 


3°? 
; TEST 8: SUBTEST 2: 


TEST STEPS: 


BEGI 


Do WRITE CHARACT 


WRITE CHARAC 


SUBTEST DESCRIPTION: 


This subtest verifies the Read/Write date loopback path. 
Tne Read/Write data signals are IR<7:0> and IwW<7:0> 
respectively. 


REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
N 


Write to TSSR pon eee to soft initialize the controller 
RISTICS to check for Extended Features Switch 

If Extended Features Hardware Switch Clear then: 
Do Write Sioveten Write Miscellaneous to Set Extended Features. 

ERISTICS to select reserved unit 7 and setup BUFFER 
Write Subsystem WRITE NPR to set tape direction out and Loopback 
WRITE NPR to set loopback and tape direction OUT 
WRITE FIFO with byte count equal to 1 and Tape direction OUT 
READ FIFO with tape direction OUT to load tape out write latch 


Do 
If 
Do 
If 
If 
If 


o 

° 
fad 
osoeee000 


strobe loopback data into FIFO. 

e READ FIFO with tape direction IN to 
Data read from FIFO NOT= to Data sent 
e Write Subsystem READ STATUS 

Input Ready NOT=1 Tnen Print Error 
Output Ready NOT=0 Then Print Error 
Date In Miss NOT=0 Then Print Erro. 


WRITE NPR to set loopback and tape direction IN 
WRITE FIFO with byte count equal to 1 and Tape direction IN 


read data 
Then Print Error 


H1i4 


TSVS - HARDWARE TESTS MACRO M -FEB-84 17:02 Q@ 17 
TEST 8: SUBTEST 5; COOPBACK READ WRITE SEPNACS FEST =e i 
4221 Fy END 
4222 $-- 
4223 053526 BGNSUB 34//////////// BEGIN SUBTEST S///S/////7/ 
053526 T8.2: 
053526 104402 TRAP C$B8SUB 
4224 ; Write to TSSR register to soft initialize the controller 
4225 053530 S$: 
4226 053530 004737 015604’ JSR PC,SOFINIT sWRITE TO TSSR TO SOFT INITIALIZE 
4227 053534 103405 BCS 10$ s6R IF SOFT INIT OKAY 
4228 053536 010001 MOV RO,RL sSAVE CONTENTS OF TSSR 
4229 053540 ERROF ERRNO, SFIERR, SF IMSG sDEVICE FATAL DURING INIT 
053540 104455 TRAP CSEROF 
053542 001460 ~ WORD 816 
053544 003646' » WORD SF IERR 
053546 011644’ ~ WORD SF IMSG 
4230 3 Do WRITE ime to check for Extended oetres Switch 
4231 053550 005037 002222’ 10$: CLR FLG sCLEAR FATAL ERROR FLAG 
4232 053554 012704 062050’ MOV OTIOPRCKET. R4 ;GET THE ADDRESS OF COMMAND PACKET 
4233 053560 004737 010472' JSR PC ,.WRTICHR 300 WRITE CHARACTERISTICS COMMAND 
4234 053564 FORCERROR 12$ s@880FORCE ERROR IF FORCER=1 
4235 053600 103407 BCS 15$ ;BR IF CARRY SET (GOOD RETURN) 
4236 053602 010001 MOV RO,R1 :;SAVE CONTENTS OF TSSR 
4237 053604 NEXT.ERR 
4238 053604 12$: ERROF ERRNO, T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
053604 104455 TRAP CSERDF 
053606 001461 WORD 17 
053610 057763’ .WORD T19SSR 
053612 011656' .WORD PKTSSR 
4239 053614 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 
4240 053620 15$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
053620 104406 TRAP CSCLP1 
4241 ; If Extended Features Hardware Switch Clear then: 
4242 : Do Write Subsystem Write Miscellaneous to Set Extended Features. 
4243 053622 012701 062072’ MOV @T19BFR,R1L sMESSAGE BUFFER ADDRESS 
4244 053626 032761 000200 000012 BIT @Xx2. EXTF, xST2(R1) S EXTENDED FEATURES SWITCH SET? 
4245 053634 001026 BNE 30$ :BR IF YES 
4246 053636 004737 061722’ JSR PC, T1I9SEXT sSETUP PACKET FOR WRITE MISC INVERT 
4247 053642 012704 062220’ MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
4248 053646 010465 000000 MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
4249 053652 004737 016146’ JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
4250 053656 FORCERROR 22s ;880F ORCE ERROR IF FORCER=1 
4251 053672 103407 6CcS 30% 3;6R IF CARRY SET (GOOD RETURN) 
4252 053674 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
4253 053676 NEXT. ERRNO 
4254 053676 22s: ERROF ERRNO, T192SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
053676 104455 TRAP CSERDF 
053700 001462 . WORD 818 
053702 060020' .WORD T192SSR 
053704 011656' . WORD PKTSSR 
4255 053706 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 
4256 053712 30$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
053712 104406 TRAP CsCLPl 
4257 ; Do WRITE CHARACTERISTICS to select reserved unit 7 
4258 053714 012704 062050’ MOV @TLISPACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 
4259 053720 004737 010472’ JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
4260 053724 FORCERROR 42$ s;Q@80FORCE ERROR IF FORCER=1 


4261 053740 103407 BCS 50s BR IF CARRY SET (GOOD RETURN) 


I14 


TSVS - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 SEQ 177 
TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 

4262 053742 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

4263 053744 NEXT. ERRNO 

4264 053744 423: ERRDOF ERRNO, T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
053744 104455 TRAP CSEROF 
053746 001463 -WORD 819 
053750 057763' . WORD T19SSR 
053752 011656’ .WORD PKTSSR 

4265 053754 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 

4266 053760 50$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
053760 104406 TRAP CSCLP1 

4267 

4268 

4269 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 

4270 053762 012703 002752' MOV @TSTBLK ,R3 ;GET FIRST PATTERN ADDRESS 

4271 053766 012337 002312' 100$; MOV (R3)+,DATA 3GET A TEST PATTERN 

4272 053772 042737 177400 002312’ BIC @tC<377>,DATA sDATA IS BYTE 

4273 054000 010337 002316’ MOV R3,TSTPTR ;SETUP CURRENT TSTBLK POINTER 

4274 F Do a WRITE NPR to set loopback and tape direction OUT 

4275 054004 012700 000100 MOV ONP .OUT ,RO ;SET TAPE DIRECTION OUT 

4276 054010 052700 000040 BIS @NP LOOP ,RO ;SET LOOPBACK 

4277 054014 004737 061562’ JSR PC, T19SNPR sSETUP T19PK2 FOR WRITE NPR 

4278 054020 012704 062220’ MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

4279 054024 010465 000000 MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

4280 054030 004737 016146' JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

4281 054034 FORCERROR 102$ ;880FORCE ERROR IF FORCER=1 

4282 054050 103407 BCS 105$ ;6R IF CARRY SET (GOOD RETURN) 

4283 054052 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

4284 054054 NEXT .ERRNO 

4285 054054 - 1023s: ERRDF ERRNO,T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054054 104455 TRAP CSERDF 
054056 001464 «WORD 820 
054060 060131’ WORD T194SSR 
054062 011656’ «WORD PKTSSR 

4286 054064 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 

4287 054070 1058: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
054070 104406 ny TRAP CSCLP1 

4288 3 Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 

4289 054072 012700 000001 MOV #1,RO0 sWRITE 1 BYTE 

4290 054076 012701 002312’ MOV @DATA,R1I sFIFO WRITE DATA ADDRESS 

4291 054102 004737 061626’ JSR PC, T19WF IF ;SETUP T19PK2 FOR WRITE FIFO 

4292 054106 012704 062220' MOV @T19PK2,R4 3;GET WRITE SUBSYSTEM COMMAND PACKET 

4293 054112 010465 000000 MOV R4,TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 

4294 054116 004737 016146’ JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 

4295 054122 FORCERROR 107$ ;8GOFORCE ERROR IF FORCER=1 

4296 054136 103407 6cs 1108 3;6R IF CARRY SET (GOOD RETURN) 

4297 054140 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

4298 054142 NEXT. ERRNO 

4299 054142 107$: ERROF ERRNO, T195SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054142 104455 TRAP CSERDF 
054144 001465 . WORD 821 
054146 060174’ . WORD T195SSR 
054150 011656’ .WORD PKTSSR 

4300 054152 005237 002222° INC FATFLG ;SET FATAL ERROR FLAG 

4301 054156 110$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
054156 104406 TRAP CsCLPl 

4302 3 Do a READ FIFO with tape direction OUT to load tape out write latch 


4303 054160 012700 000001 MOV #1,RO0 sSET READ BYTE COUNT 


J14 
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TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 
4304 054164 004737 061606’ JSR PC, TLORF IF sSETUP T19PK2 FOR READ FIFO 
4305 054170 012704 062220’ MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
4306 054174 010465 000000 MOV R4, TSDBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
4307 054200 004737 016146’ JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
4308 054204 FORCERROR 122$ s@@O0FORCE ERROR IF FORCER=1 
4309 054220 103407 6cs 130$ ;BR IF CARRY SET (GOOD RETURN) 
4310 054222 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4311 054224 NEXT. ERRNO 
4312 054224 1228: ERROF ERRNO, 1T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054224 104455 TRAP CSEROF 
054226 001466 . WORD 822 
054230 060240' » WORD T196SSR 
054232 011656’ .WORD PKTSSR 
4313 054234 005237 002222’ INC FATFLG :SET FATAL ERROR FLAG 
4314 054240 1308: CKLOOP ;LOOP ON ERRO®, IF FLAG SET 
054240 104406 TRAP CSCLP1 
4315 Fy . @ WRITE NPR to set loopback and tape direction IN 
4316 054242 005000 CLR RO ;CLR NP.OUT TO SET TAPE DIRECTION IN 
4317 054244 052700 000040 BIS ONP .LOOP ,RO ;SET LOOPBACK 
4318 054250 004737 061562’ JSR PC, T19SNPR ;SETUP T19PK2 FOR WRITE NPR 
4319 054254 012704 062220' MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
4320 054260 010465 000000 MOV R4,TSOBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 
4321 054264 004737 016146’ JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
4322 054270 FORCERROR 142$ ;@@0FORCE ERROR IF FORCER=1 
4323 054304 103407 BCS 150$ ;BR IF CARRY SET (GOOD RETURN) 
4324 054306 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4325 054310 NEXT .ERRNO 
4326 054310 1428: ERROF ERRNO, T194SSR,PKTSSR ;sDEVICE FATAL SSR FAILED TO SET 
054310 104455 TRAP CSERDOF 
054312 001467 -WORD 823 
054314 060131’ . WORD T194SSR 
054316 011656’ -WORD PKTSSR 
4327 054320 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 
4328 054324 150$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
054324 104406 TRAP CSCLP1 
4329 ; Do a WRITE FIFO with byte count equal to 1 and Tape direction IN 
4330 054326 012700 000001 MOV #1,RO sWRITE 1 B TE 
4331 054332 012701 002312’ MOV @DATA,R1 sFIFO WRIiE DATA ADDRESS 
4332 054336 004737 061626’ JSR PC, TI9WFIF ;SETUP T19PK2 FOR WRITE FIFO 
4333 054342 012704 52220' MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
4334 054346 010465 20000 MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
4335 054352 004737 016146' JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
4336 054356 FORCERROR 162$ ;Q9Q8D0FORCE ERROR IF FORCER=1 
4337 054372 103407 BCS 170$ ;BR IF CARRY SET (GOOD RETURN) 
4338 054374 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
4339 054376 NEXT. ERRNO 
4340 054376 1628: ERROF ERRNO, T195SSR,PKTSSR ;sDEVICE FATAL SSR FAILED TO SET 
054376 104455 TRAP CSEROF 
054400 001470 . WORD 824 
054402 060174' . WORD T195SSR 
054404 011656’ .WORD PKTSSR 
4341 054406 005237 002222' INC FATFLG ;SET FATAL ERROR FLAG 
4342 054412 170$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
05442 104406 TRAP CsCLP1 
4343 : Do a READ FIFO with tape direction IN to read data 
4344 ; If Data read from FIFO NOT= to Data sent Then Print Error 


4345 054414 012700 000001 MOV #1,RO0 #SET READ BYTE COUNT 


TSVS -_ HARDWARE TESTS 


TEST 8: SUBTEST e: COOPBACK 


004757 
012704 
010465 
004737 


103407 
010001 


104455 
001471 
060240' 
011656' 
005237 


104406 
004737 
012701 
012702 
013711 
016261 
005000 
012701 
012702 
012703 
004737 


103404 


104456 
001472 
061200’ 
013552’ 


104406 


004737 
012704 
010465 
004737 


103407 
010001 


104455 
001473 
060064' 
011656’ 
005237 


104406 
004737 


061606' 
062220' 
000000 


016146’ 


002222' 


061760' 
057622' 


011310' 


061520' 
062220' 
000000 


016146’ 


002222' 


061760’ 


000002 


182%: 


190$: 


202s: 


210: 


212s: 


2203: 


K14 


R ORE e yarrte STeNALs TEST 


JSR PC, TLORFIF 
MOV @T19PK2 ,R4 
MOV R4, TSOBCRS) 
JSR PC,CHKTSSR 
FORCERROR 182$ 
BCS 190% 

MOV RO,R1 

NEXT. ERRNO 

ERRDF ERRNO,T196SSR,PKTSSR 
INC FATFLG 
CKLOOP 

JSR PC, TL9SETEXP 
MOV @TL9SEXSTA,R1 
MOV OT19BFSTA,R2 
MOV DATA,C(R1) 
MOV 2(R2),2(R1) 
CLR RO 

MOV oT19BFR,R1 
MOV @T19EXP Re 
MOV #18. ,R3 

JSR C.CKMSG2 
— se 202$,NOTSSR 
NEXT .ERRNO 


ERRHRD ERRNO, T199CMP ,“SGSUB 


CKLOOP 


Do a Write Subsystem READ STATUS 
If Input Ready NOT=1 
If Output Ready NOT=0 
If Data In Miss NOT=0 


JSR PC,T19SRD 
MOV @T19PK2],R4 
MOV R4, TSOBCRS) 
JSR PC. CHKTSSR 
FORCERROR 212s 
BcS 220 

MOV RO,R1 

NEXT .ERRNO 

ERROF  ERRNO,T193SSR,PKTSSR 
INC FATFLG 
CKLOOP 

JSR PC, TI9SETEXP 


SEQ 179 


sSETUP Ti9PK2 FOR READ FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE- 
sWAIT FOR SSR TO SET 

s@8OFORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 


TRAP CSERDF 
. WORD 25 
-WORD 1196SSR 
-WORD PKTSSR 
;SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLPl 
sSET WORDS 0-7 EXPD=RECV (NOT TESTING) 
;GET EXPECTED READ STATUS 
;GET RECV READ STATUS 
;SET EXPD WORD #8 = DATA 
;SET EXPD WORD #9 = RECV (NOT TESTING) 
sHIGH RECV ADDRESS FOR CKMSG2 
;LOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 
;NUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 
; 880 
3;B8R IF YES 
;REPORT ERROR 
TRAP CSERHRD 
-WORD 826 
-WORD T199CMP 
.WORD MSGSUS 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


Then Print Error 
Then Print Error 
Then Print Error 


;SETUP PACKET FOR READ STATUS 
;GET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

;@@OFORCE ERROR IF FORCER=1 
s;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 


TRAP CSEROF 
-WORD 827 
-WORD 1T193SSR 
-WORD PKTSSR 


3SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 
CsCLP1 


TRAP 
;SET WORDS 0-7 EXPD=RECV (NOT TESTING) 


- HARDWARE TESTS 


TSvS 
TEST 8: SUBTEST 2: LOOPBACK 


4388 054654 012701 


4419 055010 004737 
4420 055014 


057622' 
062112" 


011310' 


002316' 
003062’ 


053766’ 


002222' 
017014’ 


2328: 


240: 


255%: 


260$: 


L1i4 


BACK READ/WRITE SIGNALS TEST 


MOV @TISEXSTA,R1 
MOV @T1IBFSTA,R2 
MOV CR2)+,CR1)+ 
MOV CR2),(R1) 


BIS @S2. INROY,(R1) 
BIC @S2.OUTRDY,(R1) 
BIC @S2.D1M, (Ri) 


CLR 
MOV oT19BFR,R1 
MOV OT19EXP ,R2 
MOV #20. ,R3 
PC .CKMSG2 
FORCERROR 232% ,NOTSSR 
BCS 24 
NEXT .ERRNO 


ERRHRD ERRNO, T196CMP,MSGSTAT 


CKLOOP 

FORCEXIT 255 
MOV TSTPTR,R3S 
CMP R3,@TBLEND 
BHIS 255$ 

JMP 100$ 

ENDSUB 

TST FATFLG 

BEQ 260$ 

JSR PC ,.CKDROP 


sGET EXPECTED READ STATUS 
sGET RECV READ STATUS 

sSET EXPD WORD #8 = RECV TEMP 
sSET EXPD WORD #9 = RECV TEMP 
;SET EXP INPUT READY= 1 

sSET EXP OUTPUT READY= 0 

sSET EXP DATA IN MISS = O 
;HIGH RECV ADDRESS FOR CKMSG2 
sLOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 

sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


3880 
3;68R IF YES 
;REPORT ERROR 


;LOOP ON ERROR, IF FLAG SET 
TRAP 


;9a0 
;sRESTORE CURRENT TSTBLK POINTER 


sEND OF TSTBLK? 
;BR IF YES 
300 ANOTHER TSTBLK PATTERN 


SEQ 180 


CSERHRD 
828 

T196CMP 
MSGSTAT 


CsCLP1 


34/7///1////7 END SUBTEST ////////7/7/ 
7 


” TRAP 


sANY FATAL ERRORS ? 
;BRANCH IF NOT 
sTRY TO DROP THE UNIT 


-SBTTL TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST 


zee 
; TEST 8: SUBTEST 3: 


; 
SUBTEST DESCRIPTION: 


This subtest verifies the Write Strobe loopback path 
can strobe data from the FIFO to the Data lines. 

The signal IRESV3 drives IWSTR (write strobe) to write 
date from the FIFO to the tape date out latch. 


TEST STEPS: 


REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 


CSsESUB 


M14 


TSV - sia TESTS _ MACRO M1113 -FEB- 7: 
TEST a OUR TEST 8° CoopHAcR wntte stRoBE FER? 2 7#02 — 
4438 3 BEGIN 
4439 ; Write to TSSR ister to soft initialize the controller 
4440 ; Do WRITE CHARACTERISTICS to check for Extended Features Switch 
4441 : If Extended Features Hardware Switch Clear then: 
4442 ; Do Write Screven Write Miscellaneous to Set Extended Features. 
4443 ; Do WRITE CHARACTERISTICS to select reserved unit 7 and sone BUFFER 
4444 ; Do a Write Subsystem WRITE NPR to set tape direction out and Loopback 
4445 ; Do a WRITE NPR to set loopback and tape direction OUT 
4446 3 Do a WRITE FORMAT to set IRESV3==>IWSTR = 1 
4447 ; Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 
4448 ; Do a WRITE FORMAT to set IRESV3==>IWSTR = 0 to load write data latch 
4449 ; Do a WRITE FORMAT to set IRESV3==>IWSTR = 1 
4450 : Do a WRITE NPR to set loopback and tape direction IN 
4451 : Do a WRITE FIFO with byte count equal to 1 and Tape direction IN 
4452 3 to strobe loopback data into FIFO. 
4453 ; Do a READ FIFO with tape direction IN to read data 
4454 3 If Data read from FIFO NOT= to Data sent Then Print Error 
4455 ; END 
4456 i-- 
4457 055014 BGNSUB 3/////1////// BEGIN SUBTEST /////////7/ 
055014 78.3: 
055014 104402 TRAP C$BSUB 
4458 ; Write to TSSR register to soft initialize the controller 
4459 055016 S$: 
4460 055016 004737 015604' JSR PC,SOFINIT ;WRITE TO TSSR TO SOFT INITIALIZE 
4461 055022 103405 bcs 10$ ;68R IF SOFT INIT OKAY 
4462 055024 010001 MOV RO,R1 :SAVE CONTENTS OF TSSR 
4463 055026 ERRDF ERRNO, SFIERR, SF IMSG sDEVICE FATAL DURING INIT 
055026 104455 TRAP CSERDF 
055030 001474 -WORD 828 
055032 003646’ WORD SFIERR 
055034 011644’ -WORD SFIMSG 
4464 ; Do — en to check for Extended Features Switch 
4465 055036 005037 002222’ 10$: CLR FLG ;CLEAR FATAL poy i FLAG 
4466 055042 012704 062050' MOV eTISPACKET, R4 ;GET THE ADDRESS OF COMMAND PACKET 
4467 055046 004737 010472’ JSR PC,WRTCHR :D0 WRITE CHARACTERISTICS COMMAND 
4468 055052 FORCERROR les ;Q@@DFORCE ERROR IF FORCER=1 
4469 055066 103407 BcS 15$ ;B8R IF CARRY SET (GOOD RETURN) 
4470 055070 010001 MOV RO,R1 :;SAVE CONTENTS OF TSSR 
4471 055072 NEXT. ERRNO 
4472 055072 12$: ERRDOF ERRNO, T19SSR,PKTSSR ;sDEVICE FATAL SSR FAILED TO SET 
055072 104455 TRAP CSERDOF 
055074 001475 .WORD 829 
055076 057763' . WORD T19SSR 
055100 011656’ .WORD PKTSSR 
4473 055102 005237 002222' INC FATFLG ;SET FATAL ERROR FLAG 
4474 055106 15$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
055106 104406 TRAP CSCLP1 
4475 ; If Extended Features Hardware Switch Clear then: 
4476 ; Do Write Sbeysten Write Miscellaneous to Set Extended Features. 
4477 055110 012701 062072’ MOV #T19BFR,R1 sMESSAGE BUFFER ADDRESS 
4478 055114 032761 000200 000012 BIT oXx2. EXTF, xST2CR1) sEXTENDED FEATURES SWITCH SET? 
4479 055122 001026 BNE 30$ ;68R IF YES 
4480 055124 004737 061722’ JSR PC,T19SEXT ;SETUP PACKET FOR WRITE MISC INVERT 
4481 055130 012704 062220' MOV OT19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
4482 055134 010465 000000 MOV R4,TSDOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 


4483 055140 004737 016146’ JSR PC,CHKTSSR sWAIT FOR SSR TO SET 


TSVS - HARDWARE TESTS 
TEST 68: SUBTEST 3: LOOPBACK WRITE STROBE T 


055246 
055246 


055250 
055254 
055260 
055266 


055272 
055276 


055360 
055364 
055370 
055374 


103407 
010001 


104455 
001476 
060020' 
011656’ 
005237 


104406 


012704 
004737 


103407 
010001 


104455 
001477 
057763’ 
011656’ 
005237 


104406 


012703 
012337 
042737 
010337 


002222' 


062050’ 


228: 


N14 


MACRO M1113 cee est 17:02 SEQ 182 

FORCERROR 22s ;@@OFORCE ERROR IF FORCER=1 

BCS 30$ sBR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT . ERRNO 

ERROF ERRNO, T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 830 
-WORD 1192SSR 
: PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 

Do WRITE CHARACTERISTICS to select reserved unit 7 

MOV #T1SPACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 


010472’ 


002222' 


002752’ 
002312’ 


000000 
016146' 


002222’ 


000002 
061702’ 
062220' 
000000 


002312’ 


42%: 


50$: 


300 WRITE CHARACTERISTICS COMMAND 


FORCERROR 42$ ;@@0FORCE ERROR IF FORCER=1 

BCS 5S0$ ;BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERRDOF ERRNO,T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
WORD 831 
WORD T19SSR 
WORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 


CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 


100$: 


102$: 


MOV @TSTBLK,R3 ;GET FIRST PATTERN ADDRESS 
MOV CR3)+,DATA ;GET A TEST PATTERN 
BIC @tC<377>,DATA sDATA IS BYTE 
MOV R3,TSTPTR ;SETUP CURRENT TSTBLK POINTER 
Do 8 WRITE NPR to set loopback and tape direction T 
MOV @NP .OUT,RO ;SET TAPE DIRECTION OUT 
BIS @NP . LOOP, RO ;SET LOOPBACK 
JSR PC, T19SNPR ;SETUP T19PK2 FOR WRITE NPR 
MOV OT19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
R PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 102$ ;@@DFORCE ERROR IF FORCER=1 
bcs 105$ ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERRDF ERRNO, T194SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 832 
. WORD T194SSR 
. WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
Do a WRITE FORMAT to set IRESV3==>IWSTR = 1 
MOV owWF .I3RES,RO 3; IRESV3==>IWSTR=1 
JSR PC, TLOWFMT ;SETUP TOPK2 FOR WRITE FORMAT 
MOV #T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 


TSVS - HARDWARE TESTS 
TEST 8: SUBTEST 3: LOOPBACK 


004737 


Bis 


MACRO BY} O1-FEB-84 17:02 
WRITE STROBE TEST =e ie 
016146' JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 1128 sQ8QOFORCE ERROR IF —s 
BCS 1208 s:6R IF CARRY SET (GOOD RETUR 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
1128: ERRDF ERRNO,T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 833 
» WORD T198SSR 
WORD PKTSSR 
002222' INC FATFLG sSET FATAL ERROR FLAG 
1208 CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
; Do ea WRITE FIFO with byte count equal to 1 and Tape direction OuT 
000001 MOV #1,R0 sWRITE 1 BYTE 
002312’ MOV @DATA,R1 sFIFO WRITE DATA ADDRESS 
061626' JSR PC, T1I9WF IF sSETUP T19PK2 FOR WRITE FIFO 
062220' MOV @T19PK2,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 
000000 MOV R4,TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
016146' JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 1328 sQBOFORCE ERROR IF FORCER=1 
BCS 1408 3:6R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
1328: ERROF ERRNO, 1T195SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 1195SSR 
WORD PKTSSR 
002222' INC FATFLG 3SET FATAL ERROR FLAG 
1403: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
3 Do a WRITE FORMAT to set IRESV3==>IWSTR = 
CLR RO SET IRESVS**>IWSTReO 
061702’ JSR PC, TL9WFMT sSETUP TOPK2 FOR WRITE FORMAT 
062220' MOV @T19PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
000000 MOV R4, TSOBC(RS) sSET THE PACKET ADDRESS TO EXECUTE 
016146' JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 152$ s@BOFORCE ERROR IF FORCER=1 
Bcs 160% 36R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT. ERRNO 
1523; ERROF ERRNO, 1198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
. WORD 835 
.WORD T198SSR 
.WORD PKTSSR 
002222' INC FATFLG sSET FATAL ERROR FLAG 
160% CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLPL 
$ Do a WRITE FORMAT to set IRESV3==>IWSTR = 1 
000002 MOV OwF .I3RES,RO sIRESV3=**>IWSTR=1 
061702’ JSR PC, TLOWFMT sSETUP TOPK2 FOR WRITE FORMAT 
062220' MOV @T19PK2,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 
000000 MOV R4,TSOBC(RS) 3sSET THE PACKET ADORESS TO EXECUTE 
016146’ JSR PC, CHKTSSR ;WAIT FOR SSR TO SET 


FORCERROR 172% :Q@BOFORCE ERRO; ~ FORCER=1 


9 


TSVS - HARDWARE TESTS MACRO M 8 -FEB- 7:02 
TEST 8: SUBTEST 3: LOOPBACK waite stROBE eS ' SEQ 184 

4568 055650 103407 6cs 180$ 368R IF CARRY SET (ooee RE TURN) 

4569 055652 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

4570 055654 NEXT ,ERRNO 

4571 055654 1728: ERRDF ERRNO, 7198SSR,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
055654 104455 TRAP CSERDF 
055656 001504 -WORD 836 
055660 060352’ WORD T198SSR 
055662 011656’ ~ WORD PKTSSR 

4572 055664 005237 002222’ INC FATFLG sSET FATAL ERROR FLAG 

4573 055670 1808: CKLOOP sLOOP ON ERROR, IF FLAG SET 

— 055670 104406 TRAP CSCLP1 

4575 : Do a WRITE NPR to set loopback and tape direction IN 

4576 055672 005000 CLR a sCLR NP.OUT TO SET TAPE DIRECTION IN 

4577 055674 052700 000040 BIS ONP .LOOP ,RO ISET LOOPBACK 

4578 055700 004737 061562’ JSR PC, T1I9SNPR sSETUP T19PK2 FOR WRITE NPR 

4579 055704 012704 062220’ MOV @T19PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

4580 055710 010465 000000 MOV R4,TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

4581 055714 004737 016146' JSR PC,CHKTSSR sWAIT agg SSR TO SET 

4582 055720 FORCERROR 182$ SSBOFORCE ERROR IF FORCER=1 

4583 055734 103407 6CS 190$ 3;BR IF CARRY SET (GOOD RETURN) 

4584 055736 010001 MOV RO,R1 sSAVE CONIENTS OF TSSR 

4585 055740 NEXT .ERRNO 

4586 055740 1823: ERROF ERRNO,T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
055740 104455 TRAP CSEROF 
055742 001505 -WORD 837 
055744 060131’ . WORD T194SSR 
055746 011656' . WORD PKTSSR 

4587 055750 005237 002222’ INC FATFLG sSET FATAL ERROR FLAG 

4588 055754 1908; CKLOOP sLOOP ON ERROR, IF FLAG SET 
055754 104406 TRAP CSCLP1 

4589 : Do a WRITE FIFO with byte count equal to 1 and Tape direction IN 

4590 055756 012700 000001 MOV #1,RO sWRITE 1 BYTE 

4591 055762 012701 002312’ MOV @DATA,R1 sFIFO WRITE DATA ADDRESS 

4592 055766 004737 061626’ JSR PC, T19WF IF sSETUP T19PK2 FOR WRITE FIFO 

4593 055772 012704 062220’ MOV OT19PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

4594 055776 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET — TO EXECUTE 

4595 056002 004737 016146’ JSR PC ,CHKTSSR sWAIT FOR SSR TO S 

4596 056006 FORCERROR 202% 3 BBOF ORCE 1 IF FORCER=1 

4597 056022 103407 6csS 2108 3;6R IF CARRY SET (GOOD RETURN) 

4598 056024 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

4599 056026 NEXT .ERRNO 

4600 056026 2028: ERROF ERRNO, 1T195SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
056026 104455 TRAP CSEROF 
056030 001506 -WORD 838 
056032 060174’ WORD T195SSR 
056034 011656’ -WORD PKTSSR 

4601 056036 005237 002222’ INC FATFLG sSET FATAL ERROR FLAG 

4602 0.6042 2108: CKLOOP sLOOP ON ERROR, IF FLAG SET 
056042 104406 TRAP CSCLPL 

4603 3 Do a READ FIFO with tape direction IN to read data 

4604 056044 012700 000001 MOV #1,RO +SET READ BYTE COUNT 

4605 056050 004737 061606’ JSR PC, TLORF IF sSETUP T19PK2 FOR READ FIFO 

4606 056054 012704 062220’ MOV @T19PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

4607 056060 010465 000000 MOV R4,TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 

4608 056064 004737 016146’ JSR PC,CHKTSSR sWAIT FOR SSR TO SET 


4609 056070 FORCERROR 2228 s:QBDFORCE ERROR IF FORCER=1 


D15 


; SUBTEST DESCRIPTION: 


SEQ 185 
TSVS - HARDWARE TESTS RO M11}3 E 17:02 
TEST 8; SUBTEST 8: COOPBAER Unt tes TROSE FES? 
BR IF CARRY SET (GOOD RETURN) 
nu i oo MOV ROCA VSAVE CONTENTS OF TSSR 
4611 036106 010001 MOV aan 
461 FATAL SSR FAILED TO St 
4613 056110 2228; ERROF ERRNO, 1196SSR,PKTSSR :OEVICE AL TRAP CsERDF 
056110 104455 .WORD 839 
056112 001507 “WORD 1196SSR 
Oselie or16se° ene” Sarees 
22630" SET FATAL ERROR FLAG 
4614 056120 005237 002222 INC FATFLG : RROR, IF FLAG SET 
+018 S3EIES ona em pas wk, an Poel eee 
T= ta sent Then Print Error 
4616 we a Cheam” |S aes coles by cioe-date Cal Yast) 
aci8 Oseiss O12701 ostese’ MOV @TI9EXSTA,R1 1GET EXPECTED READ STATUS 
R2 ;GET RECV 
4619 056136 012702 062112 MOV @TIOBFSTA, ; ie coe cen ieee 
4620 056142 013711 002312° MOV DATA,CRI) a bot wee 2 ee cnet teerea) 
S621 036106 O16281 00002 o0D0de 1 ae * ie sHIGH RECV ADDRESS FOR CKMSG2 
a€23 056156 012701 062072" MOV OT19BFR,R1 LOW RECV ADDRESS FOR CKHSG2 
; XPD ADDRE 
4624 056162 012702 057602 ae 218. RS {NUMBER OF BYTES TO COMPARE 
anaes Gente take? ue JSR C.CKMSG2 sEXPD EQUAL: RECV? 
eB a FORCERROR 242$,NOTSSR 5 880 
4627 056176 BCS 2 ;8R IF YES 
ef aan tir con 
‘RR 
4630 056210 242$: ERRHRD ERRNO,TIOWSTR,MSGSUB = ; REPORT ERROR ae lo eeen 
056210 104456 .WORD 840 
056212 001510 “WORD T19WSTR 
Oserie o1ssse: "WORD MSCSUB 
= ROR, IF FLAG SET 
4631 056220 250$:  CKLOOP :LOOP ON ERROR, I US ae 
056220 104406 
sis 
s638 056222 + pone 7 (RESTORE CURRENT TSTSLK POINTER 
4635 056232 013703 002316' ~ yp l TEND OF TSTBLK? 
aes? Oseoas 108002 vere: BHIS 255% ;8R IF YES 
PATTERN 
4638 056244 000137 055254’ JMP 1008 800 ANOTHER TSTBLK PATTE 
4639 056250 2558: 
aea 4/7/ TEST SSSA 4444/4 
4641 056250 ENDSUB AAAALAAAA ay et 
056250 TRAP = CSESUB 
aga 020250 104403 
64 - R 
aes oserse oolsds rere Bea Deon” tORANCH IF NOT 
4645 056260 004737 017014' JSR PC ,CKDROP #TRY TO DROP THE UNIT 
4646 056264 2608: 
aeaa .SBTTL TEST 68: SUBTEST 4 LOOPBACK READ STROBE TEST 
4649 cm 
aesi ; TEST 8: SUBTEST 4; 
4652 


TSVS - HARDWARE TESTS 
TEST 8: SUBTEST 4 


MACRO M1113 ) Bea 


6- 
LOOPBACK READ STROBE TEST 


Ulee 
wo 


015604 ' 


; 
002222’ 10$: 
062050' 


010472’ 


12$: 


002222' 
158; 


84 17:02 


E15 


SEQ 186 


This subtest verifies the Read Strobe loopback path 
can strobe the data from the Date lines to the FIFO. 
The signal IRESV4 drives IRSTR (read strobe) to write 
from the data lines to the FIFO. 


TEST STEPS: 


REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 


Write to TSSR Uh to soft initialize the controller 
Do WRITE CHARACTERISTICS to check for Extended Features Switch 
If Extended Features Hardware Switch Clear then: 
Do Write peereces Write Miscellaneous to Set Extended Features. 
Do WRITE CHARACTERISTICS to select reserved unit 7 and —— BUFFER 
Do a Write Subsystem WRITE NPR to set tape direction out and Loopback 
@ WRITE NPR to set loopback and tape direction OuT 
e WRITE FORMAT to set IRESV4==>IRSTR = 1 
e WRITE FIFO with byte count equal to 1 and Tape direction OUT 
@ READ FIFO with tape direction OUT to load tape out write latch 
e WRITE NPR to set loopback and tape direction IN 
ae WRITE FORMAT to set TRESV4*=>IRSTR = 0 to write loop data to FIFO 


(to strobe 1 


END 


BGNSUB 


ea WRITE FORMAT to set IRESV4==>IRSTR = 1 
oopback data into FIFO. ) 
e READ FIFO with tape direction IN to read data 
f Date read from FIFO NOT= to Data sent Then Print Error 


37/7////////7// BEGIN SUBTEST ////4/////7 


4: 


TRAP 


Write to TSSR register to soft initialize the controller 


CsBSuUB 


JSR PC, SOF INIT sWRITE TO TSSR TO al INITIALIZE 

BCS 10$ sBR IF SOFT INIT OKA 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERROF ERRNO, SFIERR,SFINSG sDEVICE FATAL DURING INIT 
TRAP CSEROF 
-WORD 840 
-WORD SFIERR 
-WORD SFIMSG 


Do WRITE ee to check for Extended Features Switch 


CLR FA 


;CLEAR FATAL ERROR FLAG 


MOV eT LOPACKET, R4 sGET THE ADDRESS OF COMMAND PACKET 
JSR PC,WR 300 WRITE CHARACTERISTICS COMMAND 
FORCERROR mee s@@OFORCE ERROR IF FORCER=1 
BCS 15$ 3;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERROF ERRNO, T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 841 
. WORD T19SSR 
«WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CscLPL 


Be 


TSVS - HARDWARE TESTS MACRO a1 RF 0 “FER ;% 17:02 r SEQ 187 


TEST 8: SUBTEST 4 LOOPBACK RE STROB . 

4701 : If Extended Features Hordware Switch Clear then: 

4702 3 Do Write Subsystem Write Miscellaneous to Set Extended Features. 

4703 056360 012701 062072' MOV @T19BFR,R1 sMESSAGE BUFFER ADDRESS 

4704 056364 032761 000200 000012 BIT @X2.EXTF,XST2(R1) EXTENDED FEATURES SWITCH SET? 

4705 056372 001026 BNE 30$ 3;68R IF YES 

4706 056374 004737 061722’ JSR PC, T1I9SEXT ;SETUP PACKET FOR WRITE MISC INVERT 

4707 056400 012704 062220’ MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

4708 056404 010465 000000 MOV R4,TSOBCRS) ;SET THE PACKET ADORESS TO EXECUTE 

4709 056410 004737 016146' JSR PC,CHKTSSR ;WAIT yer SSR TO SET 

4710 056414 FORCERROR 223 QSOFORCE ERROR IF FORCER=1 

4711 056430 103407 6cs 30$ ;6R IF CARRY SET (GOOD RETURN) 

4712 056432 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

4713 056434 NEXT. ERRNO 

4714 056434 22s: ERROF ERRNO, T192SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
056434 104455 TRAP CSERDF 
056436 001512 -WORD 842 
056440 060020' .WORD T192SSR 
056442 011656’ ~WORD PKTSSR 

4715 056444 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 

4716 056450 30$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
056450 104406 TRAP CSsCLPL 

4717 3 Do WRITE CHARACTERISTICS to select reserved unit 7 

4718 056452 012704 062050’ MOV @TLSPACKET ,R4 ;GLT THE ADDRESS OF COMMAND PACKET 

4719 056456 004737 010472’ JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 

4720 056462 FORCERROR 42$ ;@@D0FORCE ERROR IF FORCER=1 

4721 056476 103407 bcs 50$ ;8R IF CARRY SET (GOOD RETURN) 

4722 056500 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

4723 056502 NEXT .ERRNO 

4724 056502 42%: ERROF ERRNO, T19SSR,PKTSSR sOEVICE FATAL SSR FAILED TO SET 
056502 104455 TRAP CSERDOF 
056504 001513 -WORD 843 
056506 057763’ . WORD T19SSR 
056510 011656’ .WORD PKTSSR 

4725 056512 005237 002222' INC FATFLG ;SET FATAL ERROR FLAG 

4726 056516 50$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

aver 056516 104406 TRAP CSCLP1 

4728 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 

4729 056520 012703 002752’ MOV @TSTBLK,RS ;GET FIRST PATTERN ADDRESS 

4730 056524 012337 002312’ 100$; MOV CR3)+,DATA ;GET A TEST PATTERN 

4731 056530 042737 177400 002312’ BIC @tC<377>,DATA ;DATA IS BYTE 

4732 056536 010337 002316’ MOV R3,TSTPTR ;SETUP CURRENT TSTBLK POINTER 

4733 ; Do a WRITE NPR to set loopback and tape direction OUT 

4734 056542 012700 000100 MOV ONP .OUT ,RO ;SET TAPE OIRECTION OUT 

4735 056546 052700 000040 BIS @NP .LOOP ,RO 3SET LOOPBACK 

4736 056552 004737 061562’ JSR PC, T19SNPR ;SETUP T19PK2 FOR WRITE NPR 

4737 056556 012704 062220' MOV #T19PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

4738 056562 010465 000000 MOV R4,TSOBC(RS) 3SET THE PACKET ADDRESS TO EXECUTE 

4739 056566 004737 016146’ JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 

4740 056572 FORCERROR 102$ ;@@0FORCE ERROR IF FORCER=1 

4741 056606 103407 BCS 105% ;BR IF CARRY SET (GOOD RETURN) 

4742 056610 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

4743 056612 NEXT. ERRNO 

4744 056612 102$;: ERROF ERRNO, T194SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
056612 104455 TRAP CSEROF 
056614 001514 .WORD 844 


056616 060131' . WORD T194SSR 


TSVS - HARDWARE vests 


TEST 8: SUBTEST 4 


4745 
4746 


4785 


G15 


MACRO M1113 -FEB-84 17:02 
LOOPBACK READ STROSE TEST SEQ 166 
011656’ »- WORD PKTSSR 
005237 002222: INC FATFLG sSET FATAL ERROR FLAG 
105$; CKLOOP sLOOP ON ERROR, IF FLAG SET 
104406 TRAP CSCLP1 
3 Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 
012700 000001 MOV OwF .IG4RES,RO s IRESV4==>IRSTR=1 
004737 061702' JSR PC, T19WFMT sSETUP TOPK2 FOR WRITE FORMAT 
012704 062220' MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
010465 000000 MOV R4,TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
004737 016146’ JSR PC,CHKTSSR sWAIT fig SSR TO SET 
FORCERROR 112$ Q@@BOFORCE ERROR IF FORCER=1 
103407 BCS 120$ ;6R IF CARRY SET (GOOD RETURN) 
010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT. ERRNO 
112$: ERRDF ERRNO,T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
104455 TRAP CSEROF 
001515 -WORD 845 
060352’ WORD T198SSR 
011656’ -WORD PKTSSR 
005237 002222' INC FATFLG ;SET FATAL ERROR FLAG 
120$ CKLOOP ;LOOP ON ERROR, IF FLAG SET 
104.06 TRAP CSCLP1 
F Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 
012700 000001 MOV #1,R0 sWRITE 1 BYTE 
012701 002312' MOV @DATA,R1 sFIFO WRITE DATA ADDRESS 
004737 061626’ JSR PC, T19WFIF sSETUP T19PK2 FOR WRITE FIFO 
012704 062220' MOV @T19PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
010465 000000 MOV R4,TSOBC(RS) ;SET THE PACKET ADDRESS TO EXECUTE 
004737 016146’ PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 132$ ;@@O0FORCE ERROR IF FORCER=1 
103407 6CS 140$ ;6R IF CARRY SET (GOOD RETURN) 
010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
1328: ERROF ERRNO, T195SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
104455 TRAP CSERDF 
001516 -WORD 846 
060174’ WORD T195SSR 
011656’ .WORD PKTSSR 
005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 
140$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
104406 TRAP CsCLP1 
F Do ea READ FIFO with tape direction OUT to load tape out write latch 
012700 000001 MOV #1,RO ;SET READ 8YTE COUNT 
004737 061606' JSR PC, TLORF IF ;SETUP T19PK2 FOR READ FIFO 
012704 062220' MOV @T19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
010465 000000 MOV R4,TSOBC(RS) ;SET THE PACKET ADDRESS TO EXECUTE 
004737 016146’ JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 152$ sQ@98O0FORCE ERROR IF FORCER=1 
103407 BCS 160$ ;6R IF CARRY SET (GOOD RETURN) 
010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT. ERRNO 
1523: ERROF ERRNO, T196SSR ,PKITSSR sDEVICE FATAL SSR FAILED TO SET 
104455 TRAP CSEROF 
001517 . WORD 847 
060240' . WORD T196SSR 
011656’ .WORD PKTSSR 
005237 002222’ INC FATFLG 3;SET FATAL ERROR FLAG 


TSVS - HARDWARE TESTS 


TEST 68: SUBTEST 4 


057144 


057146 
057150 
057154 
057160 
057164 
057170 
057204 


057224 
057226 


HiS 


MACRO M11 -84 17:02 SEQ 189 
LOOPBACK READ STROSE TEST Q 
160$; CKLOOP sLOOP ON ERROR, IF FLAG F 
104406 TRAP CSCLPi1 
; ot @ WRITE NPR to set loopback and tape direction IN 
005000 CLR RO ;CLR NP.OUT TO SET TAPE DIRECTION IN 
052700 000040 BIS @NP .LOOP ,RO :SET LOOPBACK 
004737 061562’ JSR PC, T19SNPR sSETUP T19PK2 FOR WRITE NPR 
012704 062220' MOV @T19PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
010465 000000 MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
004737 016146' JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 182$ ;QQ0FORCE ERROR IF FORCER=1 
103407 6cs 190$ ;BR IF CARRY SET (GOOD RETURN) 
010001 MOV RO,R1 s;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
182$: ERROF ERRNO, T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
001520 Mono S48 
001 P 
060131' - WORD T194SSR 
011656’ WORD PKTSSR 
005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 
190$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
104406 TRAP CSCLP1 
3 Do a WRITE FORMAT to set IRESV4==>IRSTR = 0 
005000 CLR RO , sSET IRESV4==>IRSTR=0 
004737 061702' JSR PC, T1LOWFMT sSETUP TOPK2 FOR WRITE FORMAT 
012704 062220' MOV OTI9PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
010465 000000 MOV R4,TSOBC(RS) ;SET THE PACKET ADDRESS TO EXECUTE 
004737 016146' JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 202s ;@Q0FORCE ERROR IF FORCER=1 
103407 BCS 210$ ;BR IF CARRY SET (GOOD RETURN) 
010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
2028: ERRDF ERRNO, T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
do1s2i "loro 649 
1 1 . 
060352’ .WORD T198SSR 
011656’ . WORD PKTSSR 
005237 002222' INC FATFLG ;SET FATAL ERROR FLAG 
210$ CKLOOP ;LOOP ON ERROR, IF FLAG SET 
104406 TRAP CsCLPL 
3 Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 
012700 000001 MOV OWF .I4RES,RO 3; IRESV4==>IRSTR=1 
004737 061702’ JSR PC, T1OWFMT sSETUP TOPK2 FOR WRITE FORMAT 
012704 062220' MOV eT19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
010465 000000 MOV R4,TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
004737 016146’ JSR PC,Cr’<TSSR ;WAIT FOR SSR TO SET 
FORCERROR 222 s;@Q@OFORCE ERROR IF FORCER=1 
103407 BCS 2303 3;6R IF CARRY SET (GOOD RETURN) 
010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT. ERRNO 
2228: ERROF ERRNO, T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
cemeye cot — 
001522 a 
060352’ . WORD T198SSR 
011656’ .» WORD PKTSSR 
005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 
2303: CKLOOP sLOOP ON ERROR, IF FLAG SET 
104406 : TRAP = CSCLP1 


TSVS - HARDWARE TESTS 
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4827 
4828 057310 
057314 


057320 


057370 


057372 
057376 
057402 
057406 
057412 
057420 
057422 
057426 
057432 
057436 
057442 
057452 
057454 
057454 
057454 
057456 
057460 
057462 
057464 
057464 


057466 


057514 


057514 
057514 
057514 


057516 
057522 
057524 
057530 


012700 
004737 
012704 
010465 
004737 


103407 
010001 


104455 
001523 
060240' 
011656' 
005237 


104406 


013552’ 
104406 


013703 


104403 


005737 
001402 
004737 


I15 


MACRO M1113 01-FEB-84 17:02 E 
READ STROBE TEST — 
: Do a READ FIFO with tape direction IN to read data 
000001 MOV #1,RO sSET READ BYTE COUNT 
061606' JSR PC, TLORF IF ;SETUP T19PK2 FOR READ FIFO 
062220’ MOV @T19PK2,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 
000000 MOV R4,TSDBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
016146' JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 282$ sQ@OFORCE ERROR IF FORCER=1 
Bcs 290$ ;6R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
282s: ERROF  ERRNO,T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 851i 
.-WORD T196SSR 
.WORD PKTSSR 
002222’ INC FATFLG ;SET FATAL ERROR FLAG 
2903: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
3 If Data read from FIFO NOT= to Data sent Then Print Error 
061760' JSR PC, TLI9SETEXP ;SET WORDS 0-7 EXPD=RECV (NOT TESTING) 
057622' MOV @T1I9EXSTA,R1 ;GET EXPECTED READ STATUS 
062112' MOV @T19BFSTA,R2 ;GET RECV READ STATUS 
002312’ MOV DATA,C(R1) ;SET EXPD WORD @8 = DATA 
000002 000002 MOV 2(R2),2(R1) :SET EXPD WORD 09 = RECV CNOT TESTING) 
CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
062072' MOV @T19BFR,R1 sLOW RECV ADORESS FOR CKMSG2 
057602’ MOV @T19EXP ,R2 sEXPD ADDRESS 
000022 MOV #18. ,R3 sNUMBER OF BYTES TO COMPARE 
011310’ JSR C,.CKMSG2 sEXPD EQUAL RECV? 
FORCERROR 302$,NOTSSR :880 
BCS 310$ 3;B8R IF YES 
NEXT. ERRNO 
3023: ERRHRD ERRNO,TI9RSTR,MSGSUB .. ;REPORT ERROR 
TRAP CSERHRD 
-WORD 852 
. WORD TLORSTR 
.WORD MSGSUB 
310$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
FORCEXIT 355$ ;880 
002316' MOV TSTPTR,R3 sRESTORE CURRENT TSTBLK POINTER 
003062’ CMP R3,@TBLEND sEND OF TSTBLK? 
BHIS 355$ ;B8R IF YES 
056524' ones JMP 100$ 3:00 ANOTHER TSTBLK PATTERN 
ENDSUB 34/4/4414 /////4/ END SUBTEST ////////74/ 
L1007e: 
TRAP CsESuUB 
002222’ TST FATFLG s;ANY FATAL ERRORS ? 
BEQ 360$ ;BRANCH IF NOT 
017014’ ne JSR PC ,CKDROP ;TRY TO DROP THE UNIT 


TSVS - HARDWARE TESTS 
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4872 


4873 
4874 
4875 
4876 
4877 


057530 
057530 
057532 


057534 


057572 
057574 


057576 


057576 
057577 
057600 
057601 


057602 
057602 
057604 
057606 
057610 
057612 
057614 
057616 
057620 
057622 
057722 


104432 
002602 


MACRO M1113 01-FEB-84 17:02 


EXIT TST 


J15 


7+ 
sLOCAL STORAGE FOR THIS TEST 


ed 
TLOPREV: -WORD O 


3¢ 
LOOPBACK ORIVE SIGNAL TABLE 


THIS TABLE IS USED BY TI9CNVT TO SETUP 


SEQ 191 


s4774///7/77 EXIT TEST SSSSSA/747/ 
TRAP CsExIt 
-WORD L10066-. 


sORIVE SIGNAL 1-0 TRANSITION FLAG 


A DRIVE PATTERN FROM THE TEST DATA INPUT PATTERN. 


WRITE FORMAT SIGNALS ARE OF FORM WF .XXXxX 


19BFCTL: 


; 

: 

: 

6 

3 WRITE CONTROL SIGNALS ARE OF FORM WC. Xxx 
; 

; 

T 


.IR i] 
- ERASE #256. 
AD 


“IEDIT#256. 


SSSSERARASSS 


IWRT*256. 
WF . THISPs256. 


T19MSK : 


T19EXP;: 


S 
o 
oooooo0[0o°o 


TLOEXSTA: .BLKB 64. 
T19EXEND: 


3* 
sLOCAL TEXT MESSAGES FOR TEST 


sWRITE CONTROL DRIVE SIGNALS 


3IGO==>IFPT DATA<O> 
; IFEN==>IFBY DATA<1> 
; IRWU==>IRWD DATA<2> 
3 IREW==>IDBY DATA<3> 
sIFAD==>ILOP DATA<4> 
3 ITAD1*=>IONL DATA<5> 
s ITADO==>IRDY DATA<6> 
; IERASE==>ISPEED DATA<7> 
sIEDIT==>IHER DATA<8> 
3 IWFM=2>IFMK DATA<9> 
3; IREV==>ICER DATA<10> 
sIWRT==>IIDENT DATA<11> 
3; IHISP==>IEOT DATA<12> 


sIRESV2 CUNUSED )DATA<13> 
sIRESV1 CUNUSED )DATA<14> 
sPARERR (UNTESTED )DATA<15> 


sMASK OF UNTESTED BITS IN READ STATUS BYTES 
sUNTESTED BITS ARE SET TO 1 

sBYTE O MASK 

sBYTE 1 MASK CPARERR, IRESV2, IRESV1) 

sBYTE 2 CTIMER A,TIMER B,UNDEF INED<1:0>) 
sMAKE IT EVEN 


;sBEGIN EXPECTED DATA BUFFER 

sMESSAGE TYPE 

;DATA FIELD LENGTH 

;RBPCR 

3XSTO 

3xXST1 

3xST2 

;XST3 

sXST4 CALWAYS PRESENT FOR WRITE SUB.) 

sEXPECTED READ STATUS AND WRITE FIFO DATA 
sEND EXPECTED DATA BUFFER 


TSVS -_HAROWARE TESTS 
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057722 
057763 
0600. 


012701 
012702 
105021 
005302 
003375 
000207 


004737 
012700 
112720 
105010 
000207 


004737 
012700 
112720 
112710 
000207 


062072' 
000120 


061474' 
062230' 
000005 


061474' 


TSTL9IO: 


T197SSR: . 
T198SSR:. 
T191CMP;:. 
T192CMP: . 
T1I93CMP:. 
T195CMP:. 
T196CMP:. 
T197CMP:. 
T198CMP ; 
T199CMP: 
T19WSTR: 
T1IORSTR: 


SS Boppack READ STROGE TESTO 17'0? 


ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 


-EVEN 


3¢ 
; CLEAR MESSAGE 


3¢ 
; SETUP 
g- 
T19SRD: 


K15 


SEQ 192 


‘Transport Bus Interface Loopback’ 

E CHARACTERISTICS Failed’ 

SUBSYSTEM (Write Misc) Failed’ 

SUBSYSTEM (Read Status) Failed’ 

SUBSYSTEM (Write Nor) Failed’ 

SUBSYSTEM (Write FIFO) Failed’ 

SUBSYSTEM (Read FIFO) Failed’ 

SUBSYSTEM (Write Control) Failed’ 

SUBSYSTEM (Write Format) Failed’ 

‘FIFO Status in WORD #9 Incorrect after Initialize’ 

‘Read FIFO Data not equal to Write FIFO , Data is in WORD #8’ 

‘Tape Status 2 (in WORD #8) Incorrect after RESET TAPE’ 

‘Read FIFO Data not equal to Write FIFO Data’ 

‘FIFO Status Cin WORD #9) Incorrect after READ FIFO’ 

‘Tape Status 2 Cin WORD #8) Incorrect after RESET TAPE’ 

‘Control Signal Loopback Date Error, Data is in WORD #8’ 

‘Read/Write Loopback Data Error, Data is in WORD #8’ 

‘Loopback Date Error when strobed by Write strobe, Data is in WORD #8’ 
‘Loopback Date Error when strobed by Read Strobe, Data is in WORD #8' 


BUFFER 

: 

;SAVE R1-RS UNTIL NEXT RETURN 
@T19BFR,R1 sGET MESSAGE BUFFER ADDRESS 
@T19BEND-T19BFR,R2 sSIZE OF MESSAGE BUFFER IN BYTES 
C(R1)+ sCLEAR A BYTE 
R2 3 DONE ? 
10$ 3BR IF NO 
PC ;RETURN 


T19PK2 PACKET FOR READ STATUS 


PC, T19CLRBUF sCLEAR MESSAGE BUFFER 

@T190T 2,RO ;WRITE SUBSYSTEM DATA BUFFER 

OPW. RDSTATUS, (RO)>+ ;STORE READ STATUS COMMAND IN BSELO 
CRO) ;CLEAR BSEL1 

PC ;RETURN 


3¢ 
3; SETUP T19PK2 PACKET FOR WRITE MISC Reset Tape Status F-FLOPS 


eg 
TLORSF IF 


PC, T19CLRBUF 
@T190T2,RO 


sCLEAR MESSAGE BUFFER 
sWRITE SUBSYSTEM DATA BUFFER 
oPW.WMISC,CRO)+ sSTORE WRITE MISCELLANEOUS IN BSELO 
+ etna athena iin, feent 2 ky Be CLEAR FIFO CODES 

; 


3¢ 
; SETUP T19PK2 PACKET FOR WRITE NPR 
‘ 


Lis 


TSVS - HARDWARE TESTS MACRO M1113 01-FEB-84 17:02 SEQ 193 
TEST 8: SUBTEST 4 LOOPBACK READ btRope TEST 1 

4984 3; INPUT: 
een 3 RO CONTAINS BSEL1 NPR DATA 

t 
poe ds ; SETS NP.WRP SINCE IF O IT WRITES WRONG PARITY. 

og 
4989 061562 TL9OSNPR: 
4990 061562 004737 061474' JSR PC, T19CLRBUF ;CLEAR MESSAGE BUFFER 
4991 061566 012701 062230' MOV #T190T2,R1 sWRITE SUBSYSTEM DATA BUFFER 
4992 061572 112721 000011 MOVB @PW.WNPR,(CR1)+ s;STORE WRITE NPR IN BSELO 
4993 061576 052700 000020 BIS @NP .WRP ,RO ;D0N'T WRITE WRONG PARITY 
4994 061602 110011 MOVB RO,CR1) ;STORE NPR DATA IN BSEL1 
4995 061604 000207 RTS PC ;RETURN 
4996 
4997 z+ 
pete | ; SETUP T19PK2 PACKET FOR READ FIFO 
5000 3; INPUT: 
Sons H RO CONTAINS SEL2 BYTE COUNT 

3 
5003 061606 TLORF IF; 
5004 061606 004737 061474' JSR PC, 3 2 al ;CLEAR MESSAGE BUFFER 
5005 061612 012701 062230’ MOV eTi90T2,R ;WRITE SUBSYSTEM DATA BUFFER 
5006 061616 112721 000003 MOVB OPW. RFIFO. CR1L)>+ sSTORE READ FIFO IN BSELO 
5007 061622 110021 MOVB RO,CR1)+ ;STORE BYTE COUNT in GSEL1 
eed 061624 000207 RTS PC ;RETURN 

3; 
Soe ; SETUP T19PK2 PACKET FOR WRITE FIFO 
5012 3; INPUT: 
5013 : RO CONTAINS BYTE COUNT 
ate 3 Ri CONTAINS DATA PATTERN BLOCK ADDRESS 

ie 
5016 061626 TIOWFIF; 
5017 061626 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
5018 061632 004737 061474' JSR PC, TI9CLRBUF ;CLEAR MESSAGE BUFFER 
5019 061636 012702 062230’ MOV #T190T2,R2 sWRITE SUBSYSTEM DATA BUFFER 
5020 061642 112722 000004 MOVB OPW .WFIFO,CR2)+ s;STORE WRITE FIFO IN BSELO 
S021 061646 110022 MOVB RO, CR2)+ ;STORE BYTE COUNT IN BSEL1 
5022 061650 005022 CLR CR2)+ sCLEAR SEL2 CUNUSED) 
5023 061652 112122 10$: MOVB (R1)+,CR2)> :;STORE DATA PATTERN BYTE 
5024 061654 005300 DEC RO ;DONE ALL BYTES? 
5025 061656 003375 BGT 10$ ;68R IF NO 
aost 061660 000207 RTS PC ;RETURN 

3¢ 
aed 3 SETUP T19PK2 FOR WRITE CONTROL 

Hy 
5030 3: INPUT: 
Bose ; RO CONTAINS ORIVING DATA PATTERN 

es 
5033 061662 TLOWCTL: 
5034 061662 004737 061474’ JSR PC, TL9CLRBUF ;CLEAR MESSAGE BUFFER 
5035 061666 012701 062230' MOV #T190T2,R1 sWRITE SUBSYSTEM DATA BUFFER 
5036 061672 112721 000006 MOVB @PW.WCTL,CR1)+ ;STORE WRITE CONTROL IN BSELO 
5037 061676 110021 MOVB RO,(R1)>+ ;STORE DATA WORD IN BSEL1 
ste 061700 000207 RTS PC ;RETURN 


3° 
5040 ; SETUP T19PK2 FOR WRITE FORMAT TRANSPORT REGISTER 


Tey? ~ grngouene "GST ST 


004737 
012701 
112721 
110021 
000207 


012700 
112720 
112710 
000207 


012701 


012702 
012703 


M15 


BERR BF acBE FERS 17:02 a 


061474" 
062230' 
000007 


062230' 
000010 
000200 


057602' 
000120 


057602' 
062072' 
000010 


INPUT: 
RO CONTAINS DRIVING DATA PATTERN 


* 
TLOWFMT: 


JSR PC, T19CLRBUF 
MOV #T190T2,R1 
MOVB OPW. WFMT,CR1)+ 
MOVB RO,CR1)+ 


sCLEAR MESSAGE BUFFER 

sWRITE SUBSYSTEM DATA BUFFER 
sSTORE WRITE FORMAT IN BSELO 
sSTORE DATA WORD IN BSEL1 


RTS PC sRETURN 
3¢ 
; SETUP T19PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 
2 
Ti9SEXT: 
MOV #T190T2,RO ;sWRITE SUBSYSTEM DATA BUFFER 


MOVB OPW .WMISC ,CRO)+ 


sSTORE WRITE MISCELLANEOUS IN BSELO 
MOVB @MS .EXT, CRO) 


sSTORE INVERT EXTENDED FEATURES IN BSEL1 


RTS PC ;RETURN 
3+ 
; CLEAR EXPECTED DATA MESSAGE BUFFER 
g@ 
TL9CLEXP: 
MOV @T19EXP ,R1 ;GET EXPD ADDRESS 
MOV @T19EXEND -T19EXP,RO ;GET EXPD SIZE 
10%: CLRB (R1)+ ;CLEAR A BYTE 
DEC RO :DONE ? 
BGT 10$ ;BR IF NO 
RTS PC ;RETURN 


3¢ 
sSet WORDS 0-7 of expd message BUFFER = to recv since not testing 


ie 
T19SETEXP: 
MOV #T19EXP ,R2 sGET EXPD 
MOV @T19BFR,R3 sGET READ STATUS RECV BUFFER 
MOV #8. ,RO sSET WORDS 0-7 EXP=RECV 
S$: MOV CR3)+,CR2)+ ;SET EXPD=RECV 
DEC RO sDONE WORDS 0-7 WORDS? 
BGT S$ ;BR IF NO 
RTS PC ;RETURN 


3¢ 
; CONVERT A TEST PATTERN DATA WORD TO LOOPBACK ORIVE SIGNALS 


=e ©s os Gs SF Ge Ge Se oF Ge Se oe Ge oF 


INPUTS: 

RO TEST, PATTERN 
IMPLICIT INPUTS: 

T1I9BFCTL - CONTAINS WRITE CONTROL / WRITE FORMAT CONVERSION BITS 
OUTPUTS: 


RO - LOW BYTE CONTAINS WRITE CONTROL DATA 
- HIGH BYTE CONTAINS WRITE FORMAT DATA 


F887 “et*SDR8ESr "SL Boro EE" ReRb*BfnoBE FERS 17202 


062004 
062004 


012701 057536’ 
005002 


100004 
062060' 


000000 
000012 


062072' 
000000 


100006 
062230’ 


000000 
000012 


000020 


TL9OCNVT: 


10$: ROR 


BLKB 


N15 


SEQ 195 


sSAVE R1-RS UNTIL NEXT RETURN 
@T19BFCTL,R1 sCONVERSION TABLE ADDRESS 
R2 con OF CONVERSION 


#16. ,R3 sBIT COUNT 

RO :IS THIS BIT EQUAL TO 1? 

20$ ;BR IF NO 

(R1),R2 3SET CONVERTED BIT 

(R1)+ sPOINT TO NEXT BIT IN CONVERSION TABLE 
R3 ; DONE? 

10$ 2 ;BR IF NO 

R2,RO0 ;COPY RESULT 

PC ;RETURN 


10-<. -TSV2E7> 


;WRITE CHARACTERISTICS COMMAND PACKET 


3 
TLOPACKET: 


T1LODATA: 


;MESSAGE 
T19BFR: 


TLOBFSTA: 
T19BEND: 


-BLKB 


100004 
oe 


10. 


FOR ALL TEST 8 COMMANDS 


ooooooo 


i?) 
64. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sMINIMUM MESSAGE PACKET SIZE 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sESS,ENB,EAI,ERI 
sEXTENDED FEATURES UNIT NO. 


;BEGIN MESSAGE BUFFER 
sMESSAGE TYPE 

sDATA FIELD LENGTH 
;RBPCR 


sXST4 CALWAYS PRESENT FOR WRITE SUBSYSTEM 
sREAD STATUS AND WRITE FIFO BUFFER 
sEND OF MESSAGE BUFFER 


3 
sWRITE SUBSYSTEM READ STATUS COMMAND PACKET 
-BLKB 


; 
T19°PKe; 


10-<, -TSV2E7> 


P.WRTSUB!P. ACK 
zasets 


10. 


sWRITE SUBSYSTEM WITH ACK 
sLOW ADORESS OF DATA BLOCK 
sHIGH ADDRESS OF DATA BLOCK 
sMINIMUM MESSAGE PACKET SIZE 


T 
Te 


B16 


SVS - HARDWARE TESTS MACRO M1113 0O1-FEB-84 17:02 SEQ 196 
ST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 
5159 062230 T190T2: sDATA BLOCK 
5160 062230 000 wore. 8 sB8SELO 
5161 062231 000 -BYTE O sBSEL1 
5162 062232 000000 «WORD O 1SEL2 
eT 062234 .BLKB 64. sWRITE FIFO DATA OUTPUT BUFFER 
16 
5165 i 
5166 062334 ENOTST 
062334 10066: 
$167 062334 104401 TRAP Csersr 
5168 -SBTTL TEST 9: READ/WRITE DATA PARITY TEST 
5169 zee 
sear ; TEST DESCRIPTION; 
171 3 
$172 3 This test verifies that the Write Dete Parity generator 
5173 3 and the Read Date Parity checker operate properly. The 
5174 3 Transport Bus signel loopback mode is enabled and « 
5175 3 Set Wrong parity function is executed. Then various 
5176 3 Write Subsystem Memory functions ere performed to 
5177 3 write date to end from the FIFO in loopbeck mode. 
5178 3 The program then checks to insure a Read Date par ity 
5179 3 error occurred. 
5180 3 A Reset FIFO is done and the Read Date parity 
51861 3 error bit is agein tested to insure it cleared. 
5182 3 Finally ea Clear wrong parity function is done 
5183 3 and it is verified the data word can pass in loopback 
ces 3 mode without setting Read Date parity error. 
3 
5186 ; TEST STEPS: 
5187 3 
5188 ; REPEAT FOR LOOPCNT 
5189 3 BEGIN 
5190 3 Write to TSSR register to soft initialize the controller 
5191 3 Do WRITE CHARACTERISTICS to check for Extended Features Switch 
5192 ; If Extended Features Hardware Switch Clear then: 
5193 : Do Write Sperone Write Miscellaneous to Set Extended Features. 
5194 : Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
5195 3 REPEAT FOR ALL TEST PATTERNS IN TSTBLK TARLE 
5196 F BEGIN 
5197 : (« Verity Write Wrong Parity Sets Parity Error «) 
5198 3 Do ea WRITE NPR to set loopback and tape direction OuT 
5199 : and SET Write wr Parity. 
S200 ; Do a WRITE FORMAT to set IRESV4*=>IRSTR = 1 (sets read strobe high) 
5201 3 Do a WAITE FIFO with byte count equal to 1 and Tape direction OuT 
S202 ; Do a READ FIFO with tape direction OUT to load tape out write latch 
5203 ; (this is when wrong parity (IWP) is set) 
5204 ; Do @ WRITE FORMAT to set IRESV4==>IRSTR = 0 (sets read strobe low) 
5205 3 (Read Strobe sets PAR IN H [Parity Error)) 
5206 3 Do e WRITE FORMAT to set IRESV4=*=>IRSTR = 1 (sets read strobe hign) 
5207 3 Do ea Write Subsystem READ STATUS 
5208 F If Read Date parity error NOT*1 Then Print Error 
5209 Fy Do a Write Mise to RESET FIFO 
5210 F Do a Write Subsystem READ STATUS 
actk 3 If Read Date parity error NOT*0 Then Print Error 
: 
5213 F (* Verify Data can be transferred without a Parity Error «) 


C16 


TSVS - HARDWARE T M -FEB- 

TEST 9 READCURITE Bata PARE ry tee, OF -FEB-84 17:02 320 197 
5214 ; Do a WRITE FORMAT to set IRESV4*=>IRSTR = 1 (sets read strobe high) 
Se15 3 Do a WRITE NPR to set 1 ack and tape direction OuT 
5216 : end CLEAR Write Wrong Parity. 
$217 ; Do a WRITE FIFO with byte count equal to 1 and Tape direction OuT 
5218 F Do a READ FIFO with tape direction OUT to load tape out write latch 
5219 3 Do a WRITE FORMAT to set IRESV4==>IRSTR = O (sets read strobe low) 
5220 : (Read Strobe should NOT set PAR IN H [Parity Error] nere) 

S221 3 Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 

S222 3 Do a Write Subsystem READ STATUS 

ety ; If Read Date parity error NOT*O Then Print Error 

4 3 

5225 3 END 

5226 8-- 

$227 

$228 

5229 062336 BGNTST 
062336 T9:: 

5234 062336 012700 064722' MOV ®TST20ID,RO sASCII MESSAGE TO IDENTIFY TEST 

5235 062342 004737 016322’ JSR PC, TSTSETUP 300 INITIAL TEST SETUP 

5236 062346 012737 000012 002216’ MOV #10, ,LOOPCNT ;PERFORM 10 ITERATIONS 

3 t4 062354 20L00P : 

5239 062354 BGNSUB 3/////////7/// BEGIN SUBTEST S/A/4/4 74/74/77 
062354 T9.1: 
062354 104402 TRAP Cs6SUB 

5240 3 Write to TSSR register to soft initialize the controller 

5241 062356 5$: 

S242 062356 004737 015604’ JSR PC,SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 

5243 062362 103405 BCS 108% ;6R IF SOFT INIT OKAY 

5244 062364 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5245 062366 ERROF ERRNO,SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
062366 104455 TRAP CSEROF 
062370 001604 . WORD 900 
062372 003646’ . WORD SF IERR 
062374 011644' . WORD SF IMSG 

5246 3 Do WRITE CHARACTERISTICS to check for Extended Features Switch 

5247 062376 005037 002222’ 10%: CLR FATFLG ;CLEAR FATAL ERROR FLAG 

5248 062402 012704 066130’ MOV @T2OPACKET ,R4 sGET THE ADDRESS OF COMMAND PACKET 

5249 062406 004737 010472’ JSR PC, WRTICHR 300 WRITE CHARACTERISTICS COMMAND 

5250 062412 FORCERROR les s@AD0FORCE ERROR IF FORCER=1 

5251 062426 103407 BCS 158 ;8R IF CARRY SET (GOOD RETURN) 

5252 062430 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5253 062432 NEXT, ERRNO 

5254 062432 12s: ERROF ERRNO, T20SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
062432 104455 TRAP CSERDF 
062454 001605 .WORD 901 
062436 064751’ . WORD T2OSSR 
062440 011656’ WORD PKTSSR 

5255 062442 005237 002222’ INC FATFLG sSET FATAL ERROR FLAG 

5256 062446 158: CKLOOP sLCOP ON ERROR, IF FLAG SET 
062446 104406 TRAP CSCLPL 

5257 ; If Extended Features Hardware Switch Clear then: 

5258 F Do Write Subsystem Write Miscellaneous to Set Extended Features. 

5259 062450 012701 066152’ MOV @T2O0BFR,R1 sMESSAGE BUFFER ADDRESS 

5260 062454 032761 000200 000012 BIT @x2.EXTF,xXST2(R1 ) sEXTENDED FEATURES SWITCH SET? 

5261 062462 001026 BNE 303% 3;BR IF YES 

5262 062464 004737 066036' JSR PC, T2O0SEXT sSETUP PACKET FOR WRITE MISC INVERT 


TSV 
TES 


- HARDWARE 


“ys 


9; READ/WR 


1¥2 ‘Bara PARTY 'te8r °! 


012704 
010465 
004737 


103407 
010001 


104455 
001606 
065006 ' 
011656' 
005237 


104406 


012704 
004737 


103407 
010001 


104455 
001607 
064751° 
011656' 
005237 


104406 


012703 
012337 
042737 
010337 


012700 
052700 
042700 
004737 
012704 
010465 
004737 


103407 
010001 


104455 
001610 
065117’ 
011656’ 
005237 


06 300' 
000000 
016146' 


002222' 


066130’ 
010472' 


002222' 


000000 
016146' 


002222° 


002312’ 


D16 


; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 


-FEB-84 17:02 SEQ 198 
MOV @T20PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDBCRS) sSET THE Baar ef RopRess TO MO XECUTE 
JSR PC ,CHKTSSR sWALT sg SSR TO 
FORCERROR 228 @80F ORCE SERROR IF FORCER=1 
BCS 303 ;6R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT. ERRNO 
223: ERRDF ERRNO, T202SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 902 
» WORD T202SSR 
-WORD PKTSSR 
INC FATFLG 3SET FATAL ERROR FLAG 
30$: CKLOOP :LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
; Do WRITE getatn to select reserved unit 7 
MOV @T2OPACKET sGET THE ADDRESS OF COMMAND PACKET 
JSR PC, WRTICHR 300 WRITE CHARACTERISTICS COMMAND 
FORCERROR 42% sQ8Q0FORCE ERROR IF FORCER=1 
Bcs 50$ ;8R IF CARRY SET (GOOD RETURN 
; MOV RO,R1 ;SAVE CONTENTS OF TSSR 
_ NEXT. ERRNO 
423: ERROF ERRNO, T20SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 903 
. WORD T20SSR 
.WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
508: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


MOv @TSTBLK,R3 ;GET FIRST PATTERN ADDRESS 
100%: MOV (R3)+,O0ATA sGET A TEST PATTERN 
BIC @*C<377>,DATA sDATA IS BYTE 
MOV R3,TSTPTR ;SETUP CURRENT TSTBLK POINTER 
3 Do a WRITE NPR to set loopback and tape direction T and 
3 and SET Write Wrong Parit 
MOV —Ss- @NP.. OUT ,RO iSE7 TAPE DIRECTION OUT 
BIS ONP .LOOP ,RO iSeT LOOPBACK 
BIC ONP .WRP ,RO ;SET WRITE WRONG PARITY So is 
JSR PC, T2OWNPR ;SETUP T20PK2 FOR WRITE NP 
MOV @T20PK2,R4 ;GET WRITE SUBSYSTEM LM Ba PACKET 
MOV R4,TSOB(RS) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR PC, CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 1028 s;Q880FORCE ERROR IF FORCER=1 
BCS 105$ 3;8R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT ERRNO 
1028: ERROF ERRNO, T204SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 904 
.WORD T204SSR 
WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
105%; CKLOOP sLOOP ON ERROR, IF FLAG SET 


TSVS - HARDWARE TESTS 


5345 
5346 


MACRO M1113 O1-FEB-84 17:02 
TEST 9: READ/WRITE DATA PARITY 


000001 
066002" 
066300' 


000000 
016146' 


002222' 


000000 
016146' 


002222' 


000001 
065726' 
066300' 


000000 
016146' 


002222' 


EST 


1128: 


1528: 


172$: 


180$;: 


E16 


° SEQ 199 


TRAP CSCLP1 
Do a au ™ FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 
MOV OwWF .I4RES,RO SIRESV4s*>IRSTR = 1 


JSR PC, T20WFMT sSETUP T20PK2 FOR WRITE FORMAT 

MOV OT20PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSDOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 1le$s s@@O0FORCE ERROR IF FORCER=-1 

BCS 120% sBR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERROF ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 905 
«WORD T208SSR 
-WORD PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
Do a WRITE FIFO with byte count equal to 1 and fape direction OuT 
MOV #1,R0 sWRITE 1 BYTE 
sFIFO WRITE DATA ADDRESS 
sSETUP T20PK2 FOR WRITE FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 


PC,.CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 152s s@@OFORCE ERROR IF — 

BCS 160% ;6R IF CARRY SET (GOOD RETURN 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERRDOF ERRNO, T205SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 906 
-WORD T205SSR 
-WORD PKTSSR 

INC FATFLG 3SET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 


TRAP CsCLP1 
Do a READ FIFO with tape direction OUT to load tape out write latch 
(this is when wrong parity (IWP) is set) 
MOV #1,RO0 ;SET READ BYTE COUNT 


JSR PC, T2ORF IF sSETUP T20PK2 FOR READ FIFO 
MOV @T20PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS ) sSET THE PACKET ADDRESS TO EXECUTE 
SR PC .CHKTSSR sWAIT FOR SSR TO SET 
F ORCERROR 1728 sQ@QOFORCE ERROR IF FORCER=1 
BCS 160% 3BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERROF ERRNO, T206SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP — 
- WORD 
. WORD 7206SSR 
-WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 


TRAP CSsCLPl 


TSVS - HARDWARE TESTS 


TEST 9: REAC/WRITE DATA P 


004737 
012701 


066002' 
066300' 


000000 
016146' 


002222’ 


000000 
016146' 


002222' 


065666’ 
066300’ 


000000 
016146’ 


002222' 


066074 ' 
064622’ 


192$: 


212s: 


2323: 


F16 


MAO tees 01-FEB-84 17:02 SEQ 200 


Do a WRITE FORMAT to set IRESV4==>IRSTR = O (sets read strobe low) 
(Read Strobe sets PAR IN H [Parity Error)) 

CLR RO . sIRESV4=*=>IRSTR = O 

JSR PC, T2OWFMT sSETUP T20PK2 FOR WRITE FORMAT 

MOV @T20PK2,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSOBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 


JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 192$ s@@OFORCE ERROR IF FORCER=1 

6cS 200% ;BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERRDF ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 908 
«WORD T208SSR 
«WORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 
MOV OWwF .I4RES,RO ;IRESV4==>IRSTR = 1 
sSETUP T20PK2 FOR WRITE FORMAT 
;GET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 


PC,.CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 212% s;@@OFORCE ERROR IF FORCER=1 
BcS 2208 ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sS4VE CONTENTS OF TSSR 
NEXT . ERRNO 


ERROF ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP — 


. WORD 
-WORD T208SSR 
-WORD PKTSSR 


INC FATFLG 3;SET FATAL ERROR FLAG 

CKLOOP ;LO00P ON ERROR, IF FLAG SET 
TRAP CsCLPL 

Do a Write Subsystem REAC STATUS 

JSR PC,T20 SRD 3;SETUP PACKET FOR READ STATUS 

MOV eTsopKe. R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSDBCRS) ;SET THE PACKET ADORESS TO EXECUTE 

PC, CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 232$ ;@@DFORCE ERROR IF FORCER=i1 

6cs 2403 ;BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

NEXT. ERRNO 

ERRDF ERRNO, T203SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
.WORD 910 
.WORD T203SSR 
.WORD PKTSSR 

INC FATFLG 3;SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 


TRAP CsCLP1L 
If Read Date parity error NOT=1 Then Print Error 
JSR PC, T2OSETEXP 3SET WORDS 0-7 ExPD=RECV (NOT TESTING) 
MOV @T20EXSTA,R1L ;GET EXPECTED READ STATUS 


SvS 
EST 9: READ/WRITE DATA PARITY TES 


- HARDWARE TESTS 


012702 
Oil211 
016261 
052711 
005000 
012701 
012702 
012703 
004737 


103404 


012160’ 
104406 


012700 
004737 
012704 
010465 
004737 


011656' 
005237 


104406 


004737 
012701 
012702 
011211 
016261 
042711 
005C:00 


012701 
012702 
012703 
004737 


103404 
104456 


001621 
065446' 


G16 


MACRO gt 01-FEB-84 17:02 


066172' 


000002 
100000 


066152" 
064602" 
000024 

011310’ 


000020 
066022’ 
066300' 


000000 
016146’ 


011310’ 


000002 


000002 


2523: 


2823: 


3028: 


MOV @T2OBFSTA,R2 
MOV (R2),(R1) 

MOV 2(R2),2(R1) 

BIS @S1.PARERR,(R1) 
CLR RO 

MOV OTQOBFR,R1 

MOV @T20EXP ,R2 

MOV #20. ,R3 

JSR PC ,CKMSG2 

= s 2528 ,NOTSSR 
NEXT .ERRNO 


ERRHRD ERRNO, T20SWP,MSGSTAT 


CKLOOP 

Do a Write Misc to RESET FIFO 
MOV OMS .RSFIF ,RO 

JSR PC, TZOWMISC 

MOV @T20PK2 ,R4 

MOV R4, TSDBCRS) 

JSR PC. CHKTSSR 

FORCERROR 282s 

BCS 

MOV RO,R1 

NEXT .ERRNO 

ERRDF ERRNO, T202SSR,PKTSSR 
INC FATFLG 

CKLOOP 


Do a Write Subsystem READ STATUS 


SEQ 201 


sGET RECV READ STATUS 

sSET EXPD WORD 06 = RECV TEMP 

sSET EXPD WORD #9 = RECV (NOT TESTED) 
sSET EXP PAR ERR =1 

sHIGH RECV ADDRESS FOR CKMSG2 

sLOW RECV ADDRESS FOR CKMSG2 

sEXPD ADD+~SS 

sNUMBER OF BYTES TO COMPARE 

sEXPD EQUAL RECV? 


3: 880 
3;BR IF YES 
sREPORT ERROR 


TRAP CSERHRD 

-WORD 911 

-WORD T2O0SWP 

-WORD MSGSTAT 
;LOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


;SET RESET FIFO COMMAND 
sSETUP T20PK2 FOR WRITE MISC 
;GET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

;@@OFORCE ERROR IF FORCER=1 
:BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 912 
-WORD T202SSR 
«WORD PKTSSR 
;SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 
TRAP CscLP1 


If Read Date parity error NOT*0O Then Print Error 


JSR PC, T2OSETEXP 
MOV @T2OEXSTA,R1 
MOV @T2OBFSTA,R2 
MOV (R2),CR1) 

MOV 2(R2),2CR1) 

BIC @S1.PARERR,(R1) 
CLR RO 

MOV #T20BFR,R1 

MOV @T20EXP ,R2 

MOV #20. ,.R3 

JSR PC,CKMSG2 
FORCERROR 302$,NOTSSR 
BCS 32 


NEXT ERRNO 
ERRHRD ERRNO, T2ORSF ,MSGSTAT 


sSET WORDS 0-7 tees CNOT TESTING) 
;GET EXPECTED READ STA 

sGET RECV READ STATUS 

;SET EXPD WORD @8 = RECV TEMP 

sSET EXPO WORD 09 = RECV (NOT TESTED) 
;SET EXP PAR ERR =O 

sHIGH RECV ADDRESS FOR CKMSG2 

sLOW RECV ADDRESS FOR CKMSG2 

sEXPO ADDRESS 

sNUMBER OF BYTES TO COMPARE 

sEXPD EQUAL RECV? 


3880 

;B8R IF YES 

;REPORT ERROR 
TRAP CSERHRD 
.WORD 913 
. WORD T2ORSF 


TSVS -_ HARDWARE T 
TEST 9; READ/WRI 


5433 


012160’ 
3208: 
104406 
3 
Hy 
012700 000001 
004737 066002’ 
012704 066300' 
010465 000000 
004737 016146’ 
103407 
010001 
33238: 
104455 
001622 
065271' 
011656’ 
005237 002222’ 
340$ 
104406 
3 
3 
012700 000100 
052700 000040 
052700 000020 
004737 065706' 
012704 066300’ 
010465 000000 
004737 016146’ 
103407 
010001 
3528: 
104455 
001623 
065117' 
011656’ 
005237 002222’ 
360$ 
104406 
F 
012700 000001 
012701 002312’ 
004737 065746‘ 
012704 066300’ 
910465 000000 
004737 016146' 
103407 
010001 
3723; 
104455 
001624 


H16 


Fe Bara pantry tes OF -FEB-84 17:02 SEQ 202 


-WORD MSGSTAT 
CKLOOP sLOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 
(« pag A Data can be transferred without a Perity Error «) 
Do a WRI fl FORMAT to set IRESV4<«=>IRSTR = 1 (sets read strobe high) 
MOV OwF . I4RES,RO sIRESV4==>IRSTR = 1 
JSR PC, T2OWFMT sSETUP T20PK2 FOR WRITE FORMAT 
MOV eT20PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET — TO EXECUTE 


JSR PC,CHKTSSR sWAIT FOR SSR TO S 

FORCERROR 332% ; BOF ORCE SERROR IF FORCER=1 

BCS 340% ;BR IF CARRY SET (GOOD RETURN) 

MOV RO.R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERROF ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 
-WORD 914 
«WORD T208SSR 

PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLPl 
Do a WRITE NPR to set loopback and tape direction OUT and 
and CLEAR Write Wrong Parity 


MOV ONP .OUT ,RO iSET" TAPE DIRECTION OUT 

BIS @NP .LOOP ,RO sSET LOOPBACK 

BIS ONP .WRP ,RO sCLEAR WRITE WRONG PARITY (INVERTED) 

JSR PC, T2ZOWNPR sSETUP T20PK2 FOR WRITE NPR 

MOV @T20PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 35e$ s@QO0FORCE ERROR IF FORCER=1 

* BCS 360% :BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERRDF ERRNO, T204SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 915 
-WORD T204SSR 
WORD PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG SET 


TRAP CscLet 
Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 


MOV #1,RO0 sWRITE 1 BYTE 
MOV ODATA,R1 sFIFO WRITE DATA ADDRESS 
JSR PC, TQOWF IF sSETUP T20PK2 FOR WRITE FIFO 
MOV @T20PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSOBCRS) sSET THE PACKET ADORESS TO EXECUTE 
JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 3723 sQ@OFORCE ERROR IF FORCER=1 
BcS 380$ 3BR IF CARRY SET (GOOD RETURN) 
~ RO,R1 sSAVE CONTENTS OF TSSR 

x 


ERRNO 
ERRDF ERRNUL,T205SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 
-WORD 916 


I16 
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TEST 9: READ/WRITE DATA PARITY TEST 
064104 065162’ . WORD T205SSR 
064106 011656’ .WORD PKTSSR 
5476 064110 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 
5477 064114 380$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
064114 104406 TRAe CSCLP1 
5478 3 Do a READ FIFO with tape direction OUT to load tape out write latch 
5479 064116 012700 000001 MOV #1,R0 3SET READ BYTE COUNT 
5480 064122 004737 065726’ JSR PC, T2ORF IF ;SETUP T20PK2 FOR READ FIFO 
5481 064126 012704 066300’ MOV @T20PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
5482 064132 010465 000000 MOV R4, TSOBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 
5483 064136 004737 016146’ JSR PC,CHKTSSR ;WAIT age SSR TO SET 
5484 064142 FORCERROR 392$ BADFORCE ERROR IF FORCER=1 
5485 064156 103407 BCS 400$ ;6R IF CARRY SET (GOOD RETURN) 
5486 064160 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
5487 064162 NEXT .ERRNO 
5488 064162 392%: ERRDF ERRNO, T206SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
064162 104455 TRAP CSERDF 
064164 001625 -WORD 917 
064166 065226' . WORD T206SSR 
064170 011656’ .WORD PKTSSR 
5489 064172 005237 002222’ INC FATFLG ;SET FATAL ERROR FLAG 
5490 064176 400$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
064176 104406 TRAP CSCLP1 
5491 3 Do a WRITE FORMAT to set IRESV4==>IRSTR = O (sets read strobe low) 
5492 3 (Read Strobe sets PAR IN H [Parity Error)) 
5493 064200 005000 CLR RO sIRESV4==>IRSTR = O 
5494 064202 004737 066002’ JSR - PC,T2OWFMT ;SETUP T20PK2 FOR WRITE FORMAT 
5495 064206 012704 066300' MOV @T20PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
5496 064212 010465 000000 MOV R4,TSOBC(RS) ;SET THE PACKET ADDRESS TO EXECUTE 
5497 064216 004737 016146' JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
5498 064222 FORCERROR 412$ ;880FORCE ERROR IF FORCER=1 
5499 064236 103407 BcS 4203 ;BR IF CARRY SET (GOOD RETURN) 
5500 064240 010001 MOV RO,R1 :SAVE CONTENTS OF TSSR 
5501 064242 NEXT. ERRNO 
5502 064242 412s: ERRDOF ERRNO, T208SSR,PKTSSR ;DEVICE FATAL SSR a A SET 
, 064242 104455 CSERDF 
064244 001626 TMORD 918 
064246 065271’ .WORD T208SSR 
064250 011656’ “WORD PKTSSR 
5503 064252 005237 002222' INC FATFLG ;SET FATAL ERROR FLAG 
5504 064256 420%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
064256 104406 TRAP CSCLPi 
S505 ; Do ea WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 
5506 064260 012700 000001 MOV OWF .IT4RES,RO ;IRESV4==>IRSTR = 1 
5507 064264 004737 066002’ JSR PC, T2OWFMT ;SETUP T20PK2 FOR WRITE FORMAT 
5508 064270 012704 066300' MOV @T20PK2 ,R4 ‘ ;GET WRITE SUBSYSTEM COMMAND PACKET 
5509 064274 010465 000000 MOV R4,TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
5510 064300 004737 016146’ JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
5511 064304 FORCERROR 4323 ;Q@O0FORCE ERROR IF FORCER=1 
5512 064320 103407 BCS 440$ ;BR IF CARRY SET (GOOD RETURN) 
5513 064322 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
5514 064324 NEXT .ERRNO 
5515 064324 432%: ERROF ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
064324 104455 TRAP CsEROF 
064326 001627 .~WORD 919 
064330 065271’ . WORD T208SSR 


064332 011656‘ .WORD PKTSSR 


TEST 9: READ/WRITE DATA PARITY TEST 
5516 064334 005237 002222’ 
064340 104406 
S520 064342 004737 065666' 
S521 064346 012704 066300’ 


SS22 064352 010465 000000 
S523 064356 004737 016146’ 


5536 064436 016261 000002 000002 


5542 064466 004737 011310’ 


064512 012160' 

064514 104406 
S550 064526 013703 002316’ 
5551 064532 020327 003062’ 


S552 064536 103002 
S553 064540 000137 062614: 


064544 104403 


J16 
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INC FATFLG ;SET FATAL ERROR FLAG 
440$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLPi 
3 Do a Write Subsystem READ STATUS 
JSR PC, T20SRD sSETUP PACKET FOR READ STATUS 
MOV @T20PK2 ,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 4S2$ s8@0FORCE ERROR ae FORCER=1 
bcs 460$ ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
452%: ERROF ERRNO, T203SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 920 
WORD T203SSR 
-WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
460$ CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
; If Read Date parity error NOT=0 Tnen Print Error 
JSR PC, T2OSETEXP ;SET WORDS O-7 EXPD=RECV (NOT TESTING) 
MOV @T20EXSTA,.R1 ;GET EXPECTED READ STATUS 
MOV @T20BFSTA,R2 ;GET RECV READ STATUS 
MOV CR2),CR1) :SET EXPD WORD 08 = RECV TEMP 
MOV 2(R2),2CR1) :SET EXPD WORD #9 = RECV (NOT TESTED) 
BIC #S1.PARERR,(R1) ;SET EXP PAR ERR =0 
CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
MOV @T2OBFR,R1 ;LOW RECV ADDRESS FOR CKMSG2 
MOV @T20EXP ,R2 sEXPD ADDRESS 
MOV #20. ,R3 ;NUMBER OF BYTES TO COMPARE 
JSR PC ,CKMSG2 sEXPD EQUAL RECV? 
FORCERROR 472$,NOTSSR ;9a0 
BCS 480$ 3;8R IF YES 
NEXT .ERRNO 
472%: ERRHRD ERRNO, T2O0CWP,MSGSTAT ;REPORT ERROR 
TRAP CSERHRD 
. WORD 921 
. WORD T20CwP 
.WORD MSGSTAT 
480$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSsCLPl 
FORCEXIT 555$ ; 880 
MOV TSTPTR,R3 sRESTORE CURRENT TSTBLK POINTER 
CMP R3,@TBLEND sEND OF TSTBLK? 
BHIS 555$ ;8R IF YES 
JMP 100$ 300 ANOTHER TSTBLK PATTERN 
5558: 
ENDSUB 34///1///////7 END SUBTEST 4/4/4///7/// 
L10074;: 
TRAP CsESUs 
TST FATFLG sANY FATAL ERRORS ? 


5558 064546 005737 002222’ 
5559 064552 001402 


BEQ 560$ ;BRANCH IF NOT 


TSVS - HARDWARE TESTS 


TEST 9: READ/WRITE DATA PARITY T 


004737 017014’ 
004737 016270' 
103002 

000137 050246' 


104432 
001620 


012701 066152’ 
012702 000120 


MACRO miiiee 01-FEB-84 17:02 


JSR 
560$: 

JSR 

BCC 

JMP 
5658: 

EXIT 


PC,CKOR 
PC, TSTL 
565% 
T18LO0P 
TsT 


K16 


oP 
oop 


3¢ 
;LOCAL STORAGE FOR THIS TEST 


T20MSK : 


T2OEXP: 


T20EXSTA: .BLKB 
T20EXEND: 


#C<000> 
tC<340> 
*C<017> 


° 


ocooooo°oo 


64, 


3+ 
;LOCAL TEXT MESSAGES FOR TEST 


3- 
TST2or0: 


T202SSR: .ASCIZ 
T203SSR: .ASCIZ 
T204SSR: .ASCIZ 
T205SSR: .ASCIZ 
T206SSR: . ASCIZ 
T208SSR: .ASCIZ 
T20SWP: .ASCIZ 
T2ORSF; .ASCIZ 
T20CWP: .ASCIZ 
-EVEN 


4 
fv 
oS 
Ww 
w 
a 
P-4 


3;* 
; CLEAR MESSAGE 


as 

T2OCLRBUF ; 
SAVREG 
MOV 
MOV 


-ASCIZ 
‘WRITE 
‘WRITE 
‘WRITE 
‘WRITE 
‘WRITE 
‘WRITE 
‘WRITE 


SEQ 205 


sTRY TO OROP THE UNIT 


300 ITERATIONS? 
;68R IF NO 
;LOOP UNTIL ITERATIONS DONE 


4/4/1174 1//7 EXIT TEST SASS SA//77/ 
TRAP CsexIt 
«WORD 1L10073-. 


sMASK OF UNTESTED BITS IN READ STATUS 
sUNTESTED BITS ARE SET TO 1 

;BYTE O MASK 

;BYTE 1 MASK (PARERR, IRESV2, IRESV1) 
sBYTE 2 (TIMER A,TIMER B,UNDEF INED<1:0>) 
sMAKE IT EVEN 


;BEGIN EXPECTED DATA BUFFER 

sMESSAGE TYPE 

sDATA FIELD LENGTH 

:RBPCR 

:XSTO 

3XST1L 

:xST2 

;XST3 

:XST& CALWAYS PRESENT FOR WRITE SUB.) 

sEXPECTED READ SiATUS AND WRITE FIFO DATA 
sEND EXPECTED DATA BUFFER 


‘Read/Write Data Parity’ 
CHARACTERISTICS Failed’ 


SUBSYSTEM 
SUBSYSTEM 
SUBSYSTEM 
SUBSYSTEM 
SUBSYSTEM 
SUBSYSTEM 


(Write Misc) Failed’ 
(Read Status) Failed’ 
(Write Nor) Failed’ 
(Write FIFO) Failed’ 
(Read FIFO) Failed’ 
(Write Format) Failed’ 


‘Read Data Parity Error (PARERR) Failed to Set after Write ureng Parity’ 
‘Read Date Parity Error (PARERR) Failed to Clear after RESET FIFO’ 
‘Read Data Parity Error (PARERR) occurred in Data Loopback’ 


BUFFER 


@T20BFR 


@T2OBEND - T2OBFR,R2 


eR1 


5 

;SAVE R1-RS UNTIL NEXT RETURN 
;GET MESSAGE BUFFER ADDRESS 
sSIZE OF MESSAGE BUFFER IN BYTES 
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TEST 9: READ/WRITE DATA PARITY 


065706 
065706 
065712 
065716 
065722 
065724 


004737 
012701 
112721 
110011 
000207 


004737 
012701 
112721 
110021 
000207 


004737 
012702 
112722 
110022 
005022 
112122 


MACRO _M 


065642' 
066310' 
000011 


065642' 
066310’ 
000003 


065642’ 
066310' 
000004 


“est 


L16 
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10$: CLRB (R1)+ 
DEC R2 
BGT 10$ 
RTS PC 


3¢ 
; SETUP T20PK2 PACKET FOR READ STATUS 
=. 
T20SRD: 
JSR PC, T2OCLRBUF 
MOV #T200T2,RO 
MOVB oPW.ROSTATUS,(RO)>+ 


CLRB (RO) 
RTS PC 


3° 
; SETUP T20PK2 PACKET FOR WRITE NPR 


: INPUT: 
8 RO CONTAINS BSEL1 NPR DATA 
3 
Hj = 
T2OWNPR : 
JSR PC, T2OCLRBUF 
MOV #T200T2,R1 


MOVB oPW.WNPR,CR1)+ 
MOVB _ 


3¢ 
; SETUP T20PK2 PACKET FOR READ FIFO 
, "RO CONTAINS SEL2 BYTE COUNT 


JSR PC, T2ZO0CLRBUF 
MOV @T200T2,R1 

MOVB OPW. RFIFO,CR1)+ 
MOVB ~ ada 


: 
; SETUP T20PK2 PACKET FOR WRITE FIFO 


"RO CONTAINS BYTE COUNT 


2OWF IF : 
SAVREG 
JSR PC, T2OCLRBUF 
MOV #T200T2,R2 


MOVB oPW.WFIFO,CR2)>+ 
MOVB RO,CR2)+ 
CLR (R2)> 

10$: MOVB CR1)+,CR2)> 


SEQ 206 


sCLEAR A BYTE 
DONE ? 


5 
sBR IF NO 
sRE TURN 


sCLEAR MESSAGE BUFFER 

sWRITE SUBSYSTEM DATA BUFFER 

sSTORE READ STATUS COMMAND IN BSELO 
;CLEAR BSEL1 

;RETURN 


sCLEAR MESSAGE BUFFER 

sWRITE SUBSYSTEM DATA BUFFER 
s;STORE WRITE NPR IN BSELO 
sSTORE NPR DATA IN BSELL 
sRETURN 


sCLEAR MESSAGE BUFFER 

sWRITE SUBSYSTEM DATA BUFFER 
sSTORE READ FIFO IN BSELO 
sSTORE BYTE COUNT IN BSEL1 
;RETURN 


R1 CONTAINS DATA PATTERN BLOCK ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 
sCLEAR MESSAGE BUFFER 

sWRITE SUBSYSTEM DATA BUFFER 
sSTORE WRITE FIFO IN BSELO 
sSTORE BYTE COUNT IN BSEL1 
sCLEAR SEL2 (UNUSED) 

sSTORE DATA PATTERN BYTE 
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065774 
065776 
066000 


005300 
003375 
000207 


004737 
012701 
112721 
110021 
000207 


012701 
112721 
110011 
000207 


012700 
112720 
112710 
000207 


012701 
012700 
105021 
005300 
003375 
000207 


012702 
012703 


000207 
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065642’ 
066310' 
000007 


066310' 
000010 


06%602' 
066152’ 
000010 


hy 


3¢ 
3 SETUP 


3 
3; INPUT: 
Hy 


hee 
T2OWFMT: 


3° 
; SETUP 
3 
3 


3¢ 
3; SETUP 
= 
T2O0SEXT: 


3° 
; CLEAR EXPECTED DATA MESSAGE BUFFER 


DEC 
BGT 
RTS 


M16 


RO 
10$ 
PC 


SEQ 207 


;DONE ALL BYTES? 
;68R IF NO 
sRETURN 


T20PK2 FOR WRITE FORMAT TRANSPORT REGISTER 


RO CONTAINS DRIVING DATA PATTERN 


T20PK2 PACKET FOR WRITE MISC. 


PC, T2OCLRBUF 
#T200T2,R1 
OPW. WFMT,CR1)+ 
RO,CR1)+ 

PC 


RO CONTAINS WRITE MISC DATA 
ee 
T2OWMISC: 


@T200T2,R1 
oPW.WMISC,CR1)+ 
RO,CR1) 

PC 


;CLEAR MESSAGE BUFFER 

;sWRITE SUBSYSTEM DATA BUFFER 
;STORE WRITE FORMAT IN BSELO 
;STORE DATA WORD IN BSEL1 
sRETURN 


;WRITE SUBSYSTEM DATA BUFFER 

sSTORE WRITE MISCELLANEOUS IN BSELO 

2 sg EXTENDED FEATURES IN BSEL1 
; 


T20PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 


g 
T2OCLEXP : 
MOV 


108: 


#T205T2,RO0 
OPW.WMISC,CRO)+ 
Saree eke 8 


@T2O0EXP,R1 
#T20EXEND - T2OEXP ,RO 
CRiL)+ 
RO 
10$ 
PC 


sWRITE SUBSYSTEM DATA BUFFER 
sSTORE WRITE MISCELLANEOUS IN BSELO 
4 Ab gegen EXTENDED FEATURES IN BSEL1 


;GET EXPD ADDRESS 
;GET EXPD SIZE 
;CLEAR A BYTE 


3¢ 

;Set WORDS 0-7 of expd message BUFFER = to recv since not testing 
sg 
T2OSETEXP: 


S$: 


@T20EXP ,R2 
#T20BFR,R3 


#8. ,RO 
CR3)+,CR2)+ 
RO 

S$ 

PC 


;GET EXPD 

;GET READ STATUS RECV BUFFER 
;SET WORDS 0-7 EXP=RECV 

3;SET EXPD=RECV 

;DONE WORDS O-7 WORDS? 

;BR IF NO 

;RETURN 


Bi 
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TEST 9: READ/WRITE DATA PARITY TEST 
$729 
5730 
eras 066120 -BLKB = =10-«. -TSV2E7> 
t 
sree sWRITE CHARACTERISTICS COMMAND PACKET 
é 
5737 066130 T2OPACKET: sCOMMAND PACKET FOR TEST 
5738 066130 100004 . 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 
5739 066132 066140’ «WORD T2ODATA sADDRESS OF CHARACTERISTICS BLOCK 
5740 066134 000000 «WORD 0O 
tint 066136 000012 «WORD 10. sMINIMUM MESSAGE PACKET SIZE 
5743 066140 T2ODATA: sCHARACTERISTICS DATA BLOCK 
5744 066140 066152’ «WORD T20BFR sADDRESS OF MESSAGE BUFFER 
5745 066142 «WORD O 
5746 066144 000024 -WORD 20. sLENGTH OF MESSAGE BUFFER 
5747 066146 000000 -WORD 0 sESS,ENB,EAI,ERI 
dee 066150 000007 -WORD 7 sEXTENDED FEATURES UNIT NO. 
5750 
ares s+MESSAGE BUFFER FOR ALL TEST 17 COMMANDS 
5753 066152 T20BFR: sBEGIN —~—% BUFFER 
) 066152 000000 -WORD 0 sMESSAGE TYPE 
5755 066154 000000 -WORD 0 sOATA FIELD LENGTH 
S756 066156 000000 -WORD 0O sRBPCR 
5757 066160 000000 «WORD O sXxSTO 
5758 066162 000000 -WORD O sxST1L 
5759 066164 000000 -WORD O sxST2 
5760 066166 000000 -WORD O sXST3 
5761 066170 000000 -WORD O sXST4 CALWAYS PRESENT FOR WRITE SUBSYSTEM 
5762 066172 T20BFSTA: .B.KB 64. sREAD STATUS AND WRITE FIFO BUFFER 
they 066272 T20BEND: sENO OF MESSAGE BUFFER 
i 
ths sWRITE SUBSYSTEM READ STATUS COMMAND PACKET 
5768 066272 -BLKB 10-<.-TSV2E7> 
5770 066300 T20PK2: 
5771 066300 100006 ° P.WRTSUBIP. ACK sWRITE SUBSYSTEM WITH ACK 
5772 066302 066310’ -WORD T200T2 sLOW ADDRESS OF DATA BLOCK 
5773 066304 -WORD O sMIGH ADDRESS OF DATA BLOCK 
thal 066306 000012 -WORD 10. sMINIMUM MESSAGE PACKET SIZE 
5776 066310 T200T2: sDATA BLOCK 
5777 066310 000 -BYTE O sBSELO 
5778 066311 000 BYTE O sBSEL1 
5779 066312 000000 -WORD 0 sSELe 
thes 066314 -BLKB 64, sWRITE FIFO DATA OUTPUT BUFFER 
5782 
5783 066414 ENOTST 
066414 L10073; 
ares 066414 104401 TRAP Cserst 
ee .SBTTL TEST 10; MANUAL INTERVENTION 
5787 sTHE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A “TEST”) 


Cl 
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TEST 107 MANUAL INYERVENT TONS “tt! sila 

5788 sTHAT ALLOWS THE OPERATOR TO CHECK OUT VARTOUS ELEMENTS AND FUNCTIONS OF 
5789 ;THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN 
5790 :THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 
$791 ;SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 
5792 ;THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
5793 sARE BY TYPING <CTRL-C> OR SELECTING CODE 7. 
5794 ;SELECTION CODES AND SUBROUTINES ARE: 

Q 
5797 : CODE ROUTINE 
5798 Fy 
5799 : ry HELP. PRINTS THIS MENU. 
5800 : 1 TURN ON ALL M7455 LED INDICATORS 
5801 : 2 TURN OFF ALL M7455 LED INDICATORS 
5802 : 3 OFFLINE/ONLINE ATTENTION TEST 
5803 : a WRITE -PROTECT TEST 
5804 : 5 INITIATE TRANSPORT SERVO EXERCISER 
5805 : 7 PRINT EXTENDED TRANSPORT STATUS 
5806 , 7 EXIT (RETURN TO SUPERVISOR) 

: 

sEACH MENU ITEM CORRESPONDS TO A SUBTEST, AS FOLLOWS: 
5810 : 
a : 

3 
5813 sPRINTS OUT THE MENU ON THE CONSOLE TERMINAL. 
ae 7 

3 
5816 ;CAUSES ALL THREE LED INDICATORS ON THE M7455 MUQULE 
$817 ;TO BE ILLUMINATED. AFTER INITIATING THIS ROUTINE, THE OPERATOR 
5818 ;SMOULD OBSERVE THE LED'S AND VERIFY THAT THEY ARE INDEED ALL LIT. 
5819 ;TMIS ROUTINE FIRST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 
5820 1SET THE FORCE WRONG PARITY FLIP-FLOP. WHICH SERVES TO DRIVE THE 
5821 s "PROCESSOR NOT OK" LED. THEN IT ENTERS A LOOP THAT CONTINUALLY 
5822 ;WRITES THE LOW BYTE OF TSDB AND READS THE TSSR. THESE LATTER Two 
5823 ;OPERATIONS WILL CAUSE THE “NOT SSR” AND “DRIVING BUS” LED'S TO 
5824 ;GLOW -- THEY ARE NOT REALLY LIT AT ALL TIMES BUT SHOULD APPEAR 
5825 ;REASONABLY VISIBLE. 

3 
5828 sINITIALIZES THE CONTROLLER TO CAUSE ALL LED'S 10 
5829 ;EXTINGUISH, 
5830 Fy 
5831 3 
= : 

2 
5834 ;THIS ROUTINE INITIALIZES THE CONTROLLER, ISSUES A 
5835 ;WRITE CHARACTERISTICS COMMAND TO ENABLE ATTENTION INTERRUPTS, 
5836 sISSUES A MESSAGE BUFFER RELEASE COMMAND, PRINTS A MESSAGE ON THE 
5837 sCONSOLE TERMINAL INSTRUCTING THE OPERATOR TO TOGGLE THE ON-LINE 
5838 ;SWITCH ON THE TRANSPORT, THEN WAITS FOR AN ATTENTION INTERRUPT. 
5839 ;EACH TIME THE TRANSPORT TRANSITIONS FROM ON-LINE TO OFF-LINE OR 
5840 ;VICE-VERSA, AN ATTENTION INTERRUPT SHOULD BE GENERATED. THE PROGRAM 
5841 ;WILL REPORT THE INTERRUPT AND THE CURRENT STATE OF THE TRANSPORT. 
5842 ;THE OPERATOR SHOULD VERIFY THAT THE REPORTED STATE MATCHES THE 
5843 ;STATE INDICATED BY THE LED ON THE FRONT PANEL OF THE TRANSPORT. 


5844 sIN ADDITION, WHEN THE TRANSPCRT IS PLACED OFF-LINE, THE PROGRAM 


TEX? oT*ARNORE TRRDAventAGAO "UII 01-FEB-04 17:02 


1s ISSUES A SEQUENCE OF TAPE-MOTION COMMANDS — WRITE, POSITION, ETC. 


012727 
000000 
013727 
000000 


005367 
001375 
005367 
001367 


072000' 


073115' 
016322’ 
020320' 
071200' 
002222" 


176750 
015604 ' 


000200 


000250 
002116' 
177772 
177756 


071212' 


sAND VERIFIES THAT 
sRESULTS, ALONG WITH THE NON 
3SET. 


THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A 


D1 


-EXECUT 


SEQ 210 


FOR 7. - COMMAND, FUNCTION REJECT TERMINATION 
LE FUNCTION (NEF) ERROR BIT BEING 


SCRATCH 


sTAPE REEL THAT DOES NOT HAVE A WRITE-ENABLE RING INSTALLED, THEN 
sWAITS FOR THE OPERATOR TO RESPOND THAT THIS HAS BEEN ACCOMPLISHED. 


sUPON THE 


RESPONSE, THE PROGRAM VERIFIES THAT THE TRANSPORT SHOWS 


3A WRITE-PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA ON THE 


sTAPE AND EXPECTS 


THE APPROPRIATE ERROR TERMINATION INDICATING THAT 


3; THE WRITE FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS 


sWRITE -PROTECTED. 


sAN ERROR IS REPORTED. 


IF THE APPROPRIATE TERMINATION IS NOT RECEIVED, 


6 

s INSTRUCTS THE OPERATOR TO PLACE THE TAPE TRANSPORT(S) 

sON-LINE CIF ANY ARE OFF-LINE) THEN ATTEMPTS TO PERFORM AN EXTENDED 
FOR EACH TRANSPORT EQUIPPED WITH THIS FEATURE, 


sSTATUS READOUT. 


3 THE PROGRAM F 
; TRANSPORT IS NOT EQUIPPED WITH THIS FEATURE, A MESSAGE INDICATING 


sSUCH IS ISSUED. 


21%: 


3$: 


228: 
$: 


53: 


BGNTST 

RFLAGS RO 

BEQ 21s 

MOV @T38NE ,RO 
BR 3% 

MOV #T38ID,RO 
JSR PC, TSTSETUP 
JSR PC, CHKMAN 
BcS 22% 

JMP 64% 

CLR FATFLG 

MOV #65000. , TS80LY 
JSR PC, SOF INIT 
eBcs 23% 

MOV RO,R1 

BIT @SSR,R1 

BNE 23% 

DELAY 250 


ORMATS AND PRINTS OUT THE RESULTING STATUS. IF THE 


T10:: 
;GET OPERATOR FLAGS 


;BR, IF OK TO RUN 
:"TEST NOT EXECUTED” 
;JUMP IF NOT FIRST TEST 


sTEST ID MESSAGE 

300 THE COMMON SETUP 

sIS MANUAL INTERVENTION ALLOWED? 
sBR, IF MANUAL INTER ALLOWED 
sJUMP IF NOT ALLOWED 


sCLEAR THE FATAL ERROR FLAG 
;SET UP DELAY COUNTER 

300 A SOFT INIT 

;BRANCH IF OK 

sCONTENTS OF TSSR REGISTER 
s:CHECK FOR TSSR SE! 

sKEEP GOING IF NOT SET 
sCALL DELAY ROUTINE 


TRAP CSRFLA 


MOV @250,(PC)+ 
-WORD O 

MOV L$OLY,(PC)- 
-WORD O 

DEC -6(PC) 


74 
DEC -22(PC) 
. 20 


eo 
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5899 066532 005337 071212’ DEC T38DLY sBUMP COUNTER DOWN 

5900 066536 001352 BNE S$ sBR, IF MORE TIME LEFT 

5901 066540 ERRDF ERRNO, SFIERR, SF IMSG sREPORT FATAL ERROR 
066540 104455 _ TRAP CSERDF 
066542 001751 «WORD 1001 
066544 003646' «WORD SFIERR 
066546 011644’ -WORD  SFIMSG 

5902 066550 012700 073142’ 23%: MOV @MIMENU,RO sMENU OF MANUAL INTERVENTIONS 

S903 066554 012701 000006 MOV #6 ,R1 sMAXIMUM ALLOWED SELECTION 

5904 066560 004737 020076' JSR PC ,GETSEL sGO GET THE OPERATORS SELECTION 

5905 066564 010004 MOV RO,R4 sGET NUMBER FROM ROUTINE 

5906 066566 006304 ASL R4 ;CONVERT TO WORD OFFSET 

5907 066570 000174 066574’ JMP 86$(R4) s JUMP TO PROPER LOOP 

5908 066574 066452’ 6%: «WORD 2% FRE TYPE THE MENU 

5909 066576 12' -WORD 108 s 1 TURN ON LED'S 

5910 066600 067074' -WORD 158 s 2 TURN OFF LED‘S 

S911 066602 067326’ «WORD 208 s 3 ONLINE ATTENTION 

S912 066604 067762’ «WORD 25% : 4 WRITE PROTECT 

5913 066606 070716’ -WORD 353% + S EXTENDED TRANSPORT STATUS 

5914 066610 071174’ -WORD 63% s 6 LEAVE THE TEST 

5915 066612 10$; PRINTF @T38MS2 sTELL OPERATOR TO CNTRL- ho ~ ae ExIT 
066612 012746 073011’ @T38MS2, -( SP) 
066616 012746 000001 HOV #1, -(SP) 
066622 010600 MOV SP ,RO 
066624 104417 TRAP CSPNTF 
066626 062706 000004 ADO @4,SP 

S916 066632 004737 073546’ JSR PC, TS8REST sSET PACKET TO INITIAL VALUES 

5917 066636 004737 015604: JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 

5918 066642 103405 BCS 100% s8R IF SOFT INIT = OK 

5922 066644 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5923 066646 ERRDF ERRNO,SFIE®°, SF IMSG sDEVICE FATAL ERROR OURING INIT 
066646 104455 TRAP CsEROF 
066650 001752 -WORD 1002 
066652 003646’ -WORD SFIERR 
066654 011644’ «WORD SFIMSG 

eee 066656 013737 002202' 071740' 100%: MOV UNITN, T380SW ;SET UNIT NUMBER 

5926 066664 012704 071720' MOV @T38PK2 ,R4 sSUBROUTINE NEEDS PACKET ADORESS 

5927 066670 004737 010472’ JSR PC ,.WRTCHR sISSUE WRITE CHARACTERISTICS 

5928 066674 103405 BCS 110$ 3BR, IF COMMAND ISSUED OK 

5932 066676 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5933 066700 ERRHRD ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
066700 104456 TRAP CSERHRD 
066702 001753 «WORD 1003 
066704 005052’ -WORD WRTMSG 
066706 011644' -WORD SFIMSG 

5934 066710 1108: 

5935 066710 112737 000000 071231' MOVB #0, 1T38B8S1 sCLEAR BIT 04 

5936 066716 112737 000011 071230’ MOVB #11,1T38BS0 sWRITE MISC COMMAND 

pare 066724 012704 071220’ MOV @TSBPACKET ,R4 sSET UP NEW WRT. SUBSYS MEM. COMMAND 

a 
Boas sNOTE: THIS COMMAND TURNS ON THE PROCESSOR FAIL LED 
; 

5941 066730 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADORESS 

5942 066734 004737 016146’ JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

5943 066740 103405 BcS 150$ sBR IF CARRY SET (GOOD RETURN) 


5944 066742 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 


TSVS - HARDWARE 
TEST 10: MANUAL 


ri 


MACRO M1113 01-FEB-84 17:02 


TESTS 
INTERVENTION 
104455 

001754 

072416' 

011656' 

104406 

012700 000340 
104441 

005037 071204’ 
032737 000100 
001005 

005237 071204' 
052737 000100 
012701 000060 
011137 071206’ 
012721 070500' 
011137 071210’ 
012711 000340 
012700 000000 
104441 

012701 177777 
000240 

012702 001750 
110165 000000 
016500 000002 
005302 

001372 

000766 

012746 073011’ 
012746 000001 
010600 

104417 

062706 000004 
004737 015604' 
103405 

010001 

104455 

001755 

003646' 

011644’ 

013737 002202’ 
012704 071720' 
004737 010472’ 
103405 

010001 

104456 

001756 

005052' 

011644' 


177560 


177560 


150$: 


7018: 


12$: 
14$: 


15%: 


200 
071740’ 


ERRDF ERRNO, T38SSR,PKTSSR 
CKLOOP 

SETPRI @PRIO7 

CLR TTION2 

BIT #100 ,@eTTICSR 
BNE 701$% 

INC TTION2 

BIS #100, @eTTICSR 
MOV @TTIVEC,R1 
MOV (R1), TVSAV2 
MOV #5908 ,(R1)+ 
MOV (R1), TPSAV2 
MOV @PRIO7,(R1) 
SETPRI @PRIOO 

MOV @-1,R1 

NOP 

MOV #1000. ,R2 
MOVB R1,TSOBCRS) 
MOV TSSRCRS),RO 
DEC R2 

BNE 14% 

BR 12s 

PRINTF @T38MS2 

JSR PC. SOF INIT 
Bcs 200% 

MOV RO,R1 

ERROF ERRNO, SF IERR, SF IMSG 
MOV UNITN, T380SW 
MOV @T38PK2,R4 
JSR PC,.WRICHR 

BCS 2103 


MOV RO,R1 
ERRHRD ERRNO, WRTMSG, SF IMSG 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


. WORD 
- WORD 


. WORD 
sLOOP ON ERROR, IF FLAG SET 
TRAP 


sRAISE THE PRIORITY 
MOV 


2 


4 
sASSUME INTERRUPTS ARE ENABLED 


sARE TTI INTERRUPTS ON ? 

sBRANCH IF YES 

sFLAG SET IF INTERRUPTS OFF 

sENABLE INTERRUPTS 

sSTART OF TTI VECTORS 

sSAVE THE CURRENT TTI VECTOR 

sSET NEW INTERRUPT ROUTINE 

sSAVE THE VECTOR PRIORITY 

sUSE PRIORITY SEVEN 

sLOWER INTERRUPT BR oie 
Vv 


TRAP 
sDATA TO WRITE TO TSOB 
sALLOW OPERATOR TO TYPE tC 
sSET-UP INNER LOOP 
sWRITE DATA TO TSOB 
sREAD TSSR 
sREOUCE INNER COUNT 
sLOOP TILL EXPIRES 
sLOOP UNTIL HALTED 


sTYPE CNTL C TO EXIT 


AOD 
s00 SOFT INIT OF CONTROLLER 
;BR IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL ERROR DURING INIT 
TRAP 


sSET UNIT NUMBER 


sSUBROUTINE NEEDS PACKET ADORESS 


sISSUE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 
sSAVE CONTENTS OF TSSR 


sWRITE CHARACTERISTISC FAILED 


TRAP 


SEQ 212 


CSEROF 
1004 


- T38SSR 


PKTSSR 
CsCLP1 


@PRIO7,RO 
C$SPRI 


oPRIOO,RO 
CsSPRI 


Heer” Viceatis 


CSERHRD 
1006 

WRTMSG 
SF IMSG 


TSVS - HARDWARE TESTS 


TEST 10: 


MANUAL 


112737 
112737 
012704 
010465 
004737 
103405 
010001 


104455 
001757 
072416' 
011656’ 


012711 


012700 
104441 
000240 
000776 


012746 


MACRO M1113 0O1-FEB-84 17:02 
INTERVENTION 


000000 071231' 
000025 071230' 
071220' 
000000 


016146' 


000340 


071204' 


000100 177560 


177560 


073011' 
000001 
000004 
000000 


002224' 
015604' 


J PSSAHHAEHAHASHESSAHEEAHESESHEEHHESESEHEASEESEEEEEEEEEHEREEAEEESEEEEEEE 


THIS WRITE SUB-SYSTEM MEMORY COMMAND JUST HOLDS THE LEDS OFF 


: 
J PORHSHAAHAEHASASASAEEHASEESEAEESEESEEEEEEEEEEEEESEAEEEEESEEEEEEEEESD 


2108: 


250%: 


7108: 


2605: 


20s: 


PRINTF 


SETPRI 


Gl 


#0, T38B8S1 
#25,1388S0 
@TSBEPACKET ,R4 
R4, TSOBCRS) 
PC,.CHKTSSR 
250% 


RO,R1 
ERRNO, T38SSR,PKTSSR 


@PRIO7 


TTION2 

#100, 80TTICSR 
710$ 

TTION2 

#100, 8eTTICSR 
@TTIVEC,R1 
(R1),TVSAV2 
#5908 ,(R1)+ 
(R1), TPSAV2 
OPRIO7,CR1) 
@PRIOO 


260% 


@T38MS2 


@PRIOO 


INTRECV 
PC, SOF INIT 
300$ 


RO,R1 
ERRNO, SF TERR, SF IMSG 


sCLEAR BIT 04 
sSTOP ORIVE TEST 22 


SEQ 213 


sSET UP NEW WRT. SUBSYS MEM. COMMAND 


sSET THE PACKET ADDRESS 


sWAIT FOR SSR TO SET 


3BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR —— 


. WORD 
sLOOP ON ERROR, IF FLAG SET 
TRAP 


sRAISE THE PRIORITY 


sASSUME INTERRUPTS ARE 
sARE TTI INTERRUPTS ON ? 


sBRANCH IF YES 


sFLAG SET IF INTERRUPTS OFF 


sENABLE INTERRUPTS 


sSTART OF TTI VECTORS 

sSAVE THE CURRENT TTI VECTOR 
;SET NEW INTERRUPT ROUTINE 
sSAVE THE VECTOR PRIORITY 


sUSE PRIORITY SEVEN 


;LOWER INTERRUPT BR _. 


sALLOW CNTL C 
sLOOP UNTIL STOPPED 


;TELL‘'EM WHAT TO TYPE 


ADD o4, 
;LOWER PRIORITY TO ee 


sCLEAR INTERRUPT RECEIVED FLAG 
300 SOFT INIT OF CONTROLLER 

;68R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 


CsCLP1 


@PRIO7.RO 
C$SPRI 


@PRIOO RO 
C$SPRI 


ea. 


@PRIOO,RO 
CssSPRI 


1008 
SF IERR 
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6060 
6061 


6062 


067376 
067400 
067400 


067632 


011644’ 
013737 


012711 
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002202' 


071750’ 
000000 
016060' 


000002 
000100 


000100 
000200 


072716' 
000001 


000004 


073011’ 
000001 


000004 
000340 


071204' 
000100 


071204' 
000100 
000060 
071206’ 
070500' 
071210' 
000340 


300$: 
071740' 
071736' 


3108: 


3208: 


350$: 


177560 


177560 
7208: 


CKLOOP 
PRINTF 


PRINTF 


SETPRI 


Hi 


UNITN, T380SW 
@BITS, TS8EAI 
@T3SEPK2 ,R4 


RO,R1 
ERRNO, WRTMSG , SF IMSG 


@T3EPK3,R4 
R4, TSOBCRS) 
teeta 


2 
TSSRCRS),R1 
@OFL .R1 
3208 
@OFL ,R2 


@SSR,R2 
R2,R1 


350$ 
ERRNO, T38SST,PKTSSR 


@T38MS1 
@T38MS2 


oPRIO7 


TTION2 
#100 ,ae@TTICSR 
720$ 


TTION2 

#100, @eTTICSR 
@TTIVEC,R1 
(R1), TVSAV2 
#590$,(R1)+ 
(R1), TPSAV2 
@PRIO7,(R1) 


SEQ 214 


. WORD 


sSET UNIT NUMBER IN PACKET 
sENABLE ATTENTION INTERRUPTS 
sSUBROUTINE NEEDS PACKET ADDRESS 
sISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC —— 


SF IMSG 


CSERHRD 
«WORD 1009 
«WORD WRTMSG 
«WORD SFIMSG 


sSET UP NEW PACKET FOR MESS BUF REL 
sMESSAGE BUFFER RELEASE,ACK,CvC=1 CMD 
sWAIT FOR SSR TO SET 

sMAKE SURE ALL IS CLEAR 

sGET TSSR STATUS 

sIS OFL SET 

;BR, IF OFL IS NOT SET 

sSET OFL IN EXPECTED 

;SET UP EXPECTED 

sIS EVERYTHING OK 

3sBR, IF ALL IS WELL 

sDEVICE FATAL SSR —— 


CSERHRD 
. WORD 1010 
-WORD T38SST 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLPi 
;TELL OPERATOR TO TOGGLE SWITCH 
MOV @T38MS1,-C€SP) 
MOV SP RO 
TRAP CSPNTF 
ADD 04,5P 
sTELL OPERAIOR TO DO tC TO EXIT 
V @T38MS2, -CSP) 
MOV #1,-CSP) 
MOV SP ,.RO 
TRAP CSPNTF 
ADD 04 ,SP 
sRAISE THE PRIORITY 
MOV @PRIO7,RO 
TRAP C$SPRI 


sASSUME INTERRUPTS ARE ENABLED 
sARE TTI INTERRUPTS ON ? 
sBRANCH IF YES 

sFLAG SET IF INTERRUPTS OFF 
sENABLE INTERRUPTS 

sSTART OF TTI VECTORS 

sSAVE THE CURRENT TTI VECTOR 
sSET NEW INTERRUPT ROUTINE 
sSAVE THE VECTOR PRIORITY 

sUSE PRIORITY SEVEN 


Il 
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6074 067636 SETPRI @PRIOO sLOWER INTERRUPT BR LEVEL 
067636 012/00 000000 MOV #PRIOO ,RO 
067642 104441 TRAP C$SPRI 

6075 067644 000240 360$: NOP sALLOW CONTROL C 

6076 067646 005737 002224’ TST INTRECV s0ID AN INTERRUPT OCCUR ? 

6077 067652 001001 BNE 370$ sBRANCH IF YES 

6078 067654 000773 BR 360% ;WAIT SOME MORE FOR INTERRUPT 

6079 067656 370$: PRINTF @T38INT ;"INTERRUPT RECEIVED” 
067656 012746 072506’ MOV @T38INT, -CSP) 
067662 012746 000001 MOV #1,-(SP) 
067666 010600 MOV SP ,RO 
067670 104417 TRAP CSPNTF 
067672 062706 000004 ADD 04,SP 

6080 067676 016501 000002 MOV TSSRCRS),R1 sREAD TSSR STATUS 

6081 067702 032701. 000100 BIT @OFL ,R1 sCHECK THE OFF-LINE BIT 

6082 067706 001011 BNE 380$ sBR, IF ORIVE IS OFF-LINE 

6083 067710 PRINTF #@T38ONL ;"ORIVE IS NOW ON-LINE” 
067710 012746 072536' MOV @T38ONL , -( SP) 
067714 012746 000001 MOV #1,-CSP) 
067720 010600 MOV SP ,RO 
067722 104417 TRAP CSPNTF 
067724 062706 000004 ADD 04 ,SP 

6084 067730 000410 BR 390$ sALMOST DONE 

6085 067732 380$: PRINTF @T380FL :"DRIVE IS NOW OFF-LINE” 
067732 012746 072572' MOV @T380FL,-C(SP) 
067736 012746 000001 MOV #1,-(SP) 
067742 010600 MOV SP ,RO 
067744 104417 TRAP CSPNTF 
067746 062706 000004 04,SP 

6086 067752 005037 002224' 390$; CLR INTRECV sCLEAR INTERRUPT FLAG 

6087 067756 000137 067400’ JMP 300% 3; TRY AGAIN 

6088 067762 253%: GMANIL T38MSG,T38DAT, -1,NO sWAIT FOR OPERATOR TO MOUNT TAPE 
067762 104443 TRAP C$GMAN 
067764 000404 BR 10000$ 
067766 073544' «WORD T38DAT 
067770 000120 -WORD TSCODE 
067772 073055’ «WORD T38MSG 
067774 177777 - WORD -1 
067776 10000$: 

6089 067776 BNCOMPLETE 25$ sRETRY IF ERROR 
067776 103371 Bcc 2s$ 

6090 070000 005737 073544’ TST T38DAT s0ID OPERATOR SAY ‘YES’ ? 

6091 070004 001002 BNE 27% ;BRANCH IF YES 

6092 070006 000137 066452’ JMP 2s sRETURN TO MAIN MENU 

6093 070012 27s: 

6094 070012 004737 015604’ JSR PC, SOF INIT 3:00 SOFT INIT OF CONTROLLER 

6095 070016 103405 BCS 400$ ;BR IF SOFT INIT = OK 

6099 070020 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6100 070022 ERRDF ERRNO, SFIERR,SFIMSG sDEVICE FATAL ERROR DURING INIT 
070022 104455 TRAP CSERDF 
070024 001763 WORD 1011 
070026 003646' «WORD SFIERR 
070030 011644’ -WORD  SFIMSG 

6101 070032 400%: CKLOOP sLOOP IF SELECTED 
070032 104406 TRAP CsCLP1 

6102 070034 013737 002202' 071740' MOV UNITN, T38D0SW ;SET UNIT NUMBER 


6103 070042 012704 071720' MOV @T38PK2 ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


J1 
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6104 070046 004737 010472’ JSR PC, WRTCHR s ISSUE WRITE CHARACTERISTICS 

6105 070052 103405 BCS 410$ sBR, IF COMMAND ISSUED OK 

6109 070054 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6110 070056 ERRHRD ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
070056 104456 TRAP CSERHRD 
070060 001764 WORD 1012 
070062 005052’ -WORD WRTMSG 
070064 011644' «WORD SFIMSG 

6111 070066 410$: CKLOOP sLOOP IF SELECTED 
070066 194406 TRAP CsCLP1 

6112 070070 013701 071244' MOV T38BFR+6,R1 sPICK UP XSTO CONTENTS 

6113 070074 010102 MOV R1,R2 sSET UP EXPECTED 

6114 070076 052702 000004 BIS #BIT2,R2 sSET UP THE WRITE LOCKED BIT 

6115 070102 020102 CMP R1,R2 sARE THEY CORRECT 

6116 070104 001406 BEQ 4303 ;BR, IF ALL IS WELL (OK) 

6120 070106 ERRHRD ERRNO, T38WHL ,EXPREC ;"WRITE LOCKED BIT IS NOT SET ETC.” 
070106 104456 TRAP CSERHRD 
070110 001765 «WORD 1013 
070112 072234' «WORD T38WRL 
070114 015304’ «WORD EXPREC 

6121 070116 005237 002222‘ INC FATFLG ;SET FATAL FLAG 

6122 070122 430%: | CKLOOP sLOOP IF SELECTED 
070122 104406 TRAP CsCLP1 

6123 070124 005737 002222' TST FATFLG sWAS THE DRIVE NOT WRITE LOCKED 

6124 070130 001402 BEQ 435% ;BR, IF FLAG NOT SET 

6125 070132 000137 066452’ JMP es sRE-WRITE MENU 

6126 070136 017737 112762 071772' 435%: MOV @FREE , T38wR ;SET UP WRITE BUFFER ADDRESS 

6127 070144 012704 071770' MOV @T3EPK4 ,R4 3;GET PACKET ADDRESS 

6128 070150 010465 000000 MOV R4, TSOBCRS) sSET THE PACKET ADDRESS 

6129 070154 004737 016060’ JSR PC ,WAITF sWAIT FOR SSR TO SET 

61350 070160 016501 000002 MOV TSSRCRS),R1 ;GET TSSR 

6131 070164 012702 100206 MOV @SC!SSRIBITI!IBIT2,R2 sSET UP EXPECTED 

6132 070170 020102 CMP R1,R2 sARE THEY EQUAL (CORRECT) 

6133 070172 001404 BEQ 4403 :BR, IF CORRECT STATUS 

6137 070174 ERRHRD ERRNO, T38WRT,PKTSSR ;"TSSR INCORRECT AFTER WRITE COMMAND 
070174 104456 TRAP CSERHRO 
070176 001766 -WORD 1014 
070200 072150’ «WORD T38WRT 
070202 011656’ -WORD PKTSSR 

6138 070204 4403: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
070204 104406 TRAP CsCLP1 

6139 070206 013701 071244: MOV T38BFR+6,R1 sREAD XSTO CONTENTS 

6140 070212 010102 MOV R1,R2 ;SET UPR EXPECTED 

6141 070214 052702 004000 BIS oBIT11,R2 sSET THE WRITE LOCK ERROR BIT (xXSTO) 

6142 070220 020102 CMP R1,R2 sWAS THE BIT SET 

6143 070222 001404 BEQ 450$ 3BR, IF IT WAS (GOOD) 

6147 070224 ERRHRD ERRNO, T36WLE ,EXPREC ;"WRITE LOCK ERROR BIT NOT SET” 

070224 104456 TRAP CSERHRD 
070226 001767 woRm 1015 
070230 072275’ -WORD T38WLE 
070232 015304’ -WORD EXPREC 

6148 070234 450$: CKLOOP sLOOP IF SELECTED 
070234 104406 TRAP CsCLPl 

ae 070236 000137 066452’ JMP 2s 3GO BACK TO MENU 

6151 PV rrrrrrrrrrrrrrrrrirririiiiiriiiiiiiriiiiittiit tt 


6152 ; SERVO EXERCISER NO LONGER USED 


TSVS - HARDWARE TESTS 
MANU 


TEST 


10: 


AL INTERVENTI 


070242 
070242 


012746 


112737 
112737 
012704 
010465 
004737 
103405 
010001 


104455 


012711 
012700 


072055’ 
000001 


000004 
073546' 
015604' 


002202" 
071720' 
010472' 


000000 
000020 
071220' 
000000 


016146' 


000340 


071204’ 
000100 


071740' 


be) 
071231’ 


071230' 


177560 


177560 


KI 


meen M1113 O1-FEB-84 17:02 


SEQ 217 


J SSAHHAARHHAHREASESEASASEAEESEEEEEEAHEEHAEEEESESESEAEEEESEEASESASESEAEEEED 


30$: 


500$: 


550$: 


10$: 


PRINTB @T38MS3 


JSR PC, T38REST 
JSR PC, SOF INIT 
500$ 


MOV UNITN, T380SW 
MOV @T38PK2 ,R4 
JSR PC, WRTCHR 


BCS 5:08 
Vv RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 
MOVB #0, T38BS1 
MOVB #20, 1T38BS0 
MOV @TSBPACKET ,R4 
MOV R4, TSOBCRS) 
JSR PC,.CHKTSSR 
BcS 550$ 
MOV RO,R1 
ERRDF ERRNO, T38SSR,PKTSSR 


CKLOOP 

SETPRI @PRIO7 

CLR TTION2 

BIT #100, @@TTICSR 
BNE 555% 

INC TTION2 

BIS #100, ,aeTTICSR 
Mov @TTIVEC,R1 
MOV (R1), TVSAV2 
MOV @590$,(R1)+ 
MOV (R1), TPSAV2 
MOV OPRIO7,(R1) 


SETPRI #PRIOO 


RO,R1 
ERRNO, SFIERR, SF IMSG 


+"EXE ANY OTHER MENU corny pe: TO STOP 


@T38MS3, -CSP) 


HOV #1, -(SP) 
MOV SP ,RO 
TRAP CSPNTB 
ADD 04,SP 

sSET PACKET TO INITIAL VALUES 

300 SOFT INIT OF CONTROLLER 

sBR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
«WORD 1016 
-WORD SFIERR 
«WORD SFIMSG 


sSET UNIT NUMBER 

;SUBROUTINE NEEDS PACKET ADDRESS 
; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 
«WORD 1017 

-WORD WRTMSG 
-WORD SFIMSG 


;CLEAR BIT 04 

sEXECUTE ORIVE TEST 22 

;SET UP NEW WRT. SUBSYS MEM. COMMAND 
3SET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR seman” iw SET 


CsEROF 
THORD 1018 
-WORD T38SSR 
-WORD PKTSSR 
;LOOP ON ERROR, IF FLAG SET 
TRAP CscLP1 
;RAISE THE PRIORITY 
MOV @PRIO7,RO 


TRAP CsSPRI 
sASSUME INTERRUPTS ARE ENABLED 
sARE TTI INTERRUPTS ON ? 
sBRANCH IF YES 
sFLAG SET IF INTERRUPTS OFF 
sENABLE INTERRUPTS 
sSTART OF TTI VECTORS 
sSAVE THE CURRENT TTI VECTOR 
3SET NEW INTERRUPT ROUTINE 
sSAVE THE VECTOR PRIORITY 
sUSE PRIORITY SEVEN 
;LOWER INTERRUPT BR LEVEL 

MOV oPRIOO RO 


TSVS - HARDWARE TESTS 
TEST 10: MANUAL INTERVENTION 


070472 
070474 
070476 


070730 
070732 


104441 
090240 
000776 
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002116' 
177772 . 


177756 
071212' 
016146' 


071204 ' 
000100 


073546' 
015604 ' 


000002 
000060 


000062 
071230' 
071231' 


071212' 


177560 


560$: 


NOP 
BR 


Li 


560$ 


3* 
sPROCESS CONSOLE INTERRUPTS 


590$: 


595$: 


5808: 


591$: 


358: 


RO, -(SP) 
BOTTIBFR,RO 


SEQ 218 


TRAP C$SPRI 
sLOOP AWHILE 


sSTAY IN “TIGHT” LOOP 


sSAVE WORK REGISTER 

sGET THE OPERATOR INPUT 
sSTRIP OFF PARITY BIT 

sIS IT A CARRIAGE RETURN ? 
sJUST EXIT IF NOT 

sRETURN TO MASTER MENU 
FORCE PRIORTY O 


4(SP 3 
TVSAV2 ,A@TTIVEC ;RESTORE VECTOR 


TPSAV2 , @4TTIVEC+2 
#25, T38BS0 

#0, T38B8S1 
@TSEPACKET ,R4 
R4, TSOBCRS) 
#65000. , T38DLY 
PC ,WAITF 
TSSRCRS),R1 
@SSR,R1 

S95$ 

250 


T380LY 

S92$ 

PC ,.CHKTSSR 

580$ 

RO,R1 

ERRNO, T38SSR,PKTSSR 


TTION2 

591$ 

#100 ,a@TTICSR 
(SP )+,RO0 


PC, T38REST 
PC,SOF INIT 
600$ 


RO,R1 
ERRNO, SF IERR, CF IMSG 


sRESTORE SUPER PRIORTY 
sSTOP DRIVE TEST 22 

;CLEAR BS1 

;SET UP NEW WRT. SUBSYS MEM. COMMAND 
sSET THE PACKET ADDRESS 
;SET UP DELAY COUNTER 

:00 A WAIT FOR SSR 
sCONTENTS OF TSSR REGISTER 
sCHECK FOR TSSR SET 

sKEEP GOING IF NOT SET 
sCALL DELAY ROUTINE 


MOV #250,(PC)+ 
-WORD O 
MOV LSDOLY,(PC) 
-WORD O 
DEC -6(PC) 
BNE 74 
DEC -22(PC) 
BNE .-20 

;BUMP COUNTER DOWN 

BR, IF MORE TIME LEFT 

;WAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 1019 
-WORD T38SSR 
.WORD PKTSSR 

s;LOOP ON ERROR, IF FLAG ‘SET 

: TRAP CsCLPl 
sARE SUPER INTERRUPTS ENABLED 


;BR, IF YES 
sRESTORE REGISTER 
sRESTORE REGISTER 
sRETURN 


;SET PACKET TO INITIAL VALUES 
300 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 


S - HARDWARE T 
T 10: MANUAL IN 


070732 
070734 
070736 
070740 
070742 
070742 
070744 
070750 


070754 
070756 
070762 
070764 
070766 
070774 
071000 
071004 
071006 
071010 
071010 
071012 


071156 


SiERvent96R° "5 


104455 
001774 
003646' 
011644' 


104406 
012701 
012702 


010221 


071236' 
125252 


071712’ 


002202' 
071720' 
010472' 


000250 
002116' 
177772 
177756 
071212' 
016146' 


000000 
013727 
000000 


071256' 


071740' 


01-FEB-84 17:02 


600$: 


601$: 


610$: 
071231' 
071230' 


071212’ 
620$: 


630%: 


650$: 


605$: 


CKLOOP 


MOV 
CLR 


M1 


OT38BFR,R1 
#125252 ,R2 


R2,(R1)+ 
@T38EB,R1 
605$ 


601$ 

UNITN, T38D0SW 
@T38PK2 ,R4 
PC ,WRTCHR 
610$ 


RO,R1 
ERRNO ,WRTMSG, SF IMSG 


00,T38B8S1 
024 ,T38BS0 
@TS8PACKET ,R4 


TSSR(RS), R1 
@SSR,R1 
630$ 

250 


T380L Y 
620$ 

PC ,.CHKTSSR 
650$ 


RO,R1 
ERRNO, T38SSR,PKTSSR 


@T3B8PFR+20,RO 
RL 


SEQ 219 
TRAP CSEROF 
-WORD 1020 
-WORD SFIERR 
-WORD  SFIMSG 
;LOOP IF SELECTED 
TRAP CsCLP1 


sADDRESS OF MESSAGE BUFFER 
sALTERNATING 1'S AND 0'S 


sCLEAR OUT THE MESSAGE BUFFER 
sEND OF BUFFER YET 

;BR, IF AT END OF BUFFER 

:NOT AT ENO KEEP GOING 

;SET UNIT NUMBER 

;SUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 

-WORD 1021 

-WORD WRTMSG 

«WORD SFIMSG 
;LOOP IF SELECTED 

TRAP CsCLP1 


;CLEAR BIT 04 

sREAD EXTENDED DRIVE STATUS 

;SET UP NEW WRT. SUBSYS MEM. COMMAND 
3SET THE PACKET ADDRESS 

;SET UP DELAY ROUTINE 

sWAIT AWHILE FOR SSR TO SET 

;SEE IF IT REALLY DID 

;JUST CHECK THAT BIT 

;BR, IF SSR IS SET 

;DELAY ABOUT .25 SEC 


MOV #250,(PC)+ 
-WORD O 

MOV LSOLY,(PC)-+ 
° do. 6O 

DEC fe tas 

BNE 

DEC *32cPC) 
BNE .-20 


;START DELAY COUNT DOWN 

;BR, IF COUNTER IS NOT AT DONE 
sWAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR vee i SET 


CSEROF 
THORO 1022 
“WORD  T38SSR 
.WORD PKTSSR 
;LOOP ON ERROR, IF FLAG SET 
TRAP CscLPl 


sMESSAGE BUFFER ADDRESS 
:NO HIGH ORDER ADDRESS BITS 


TSVS - HARDWARE 
TEST 10: MANUAL 


071160 
071164 
071170 


071174 
071200 
071200 
071202 


071210 


071212 
071214 
071220 
071220 
071222 
071224 
071226 
071230 
071230 
071231 
071232 
071234 
071236 
071712 


071714 
071720 
071720 
071722 
071724 
071726 


071730 
071730 
071732 
071734 
071736 
071740 
071742 
071750 
071752 


TESTS 
INTERVENTION 


005037 003134' 
004737 073604’ 
000137 066452’ 
000137 000200 


104432 
003054 


071236' 
000000 


000400 
000000 
000000 


140212 
000000 


635: 
64$: 
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CLR 
JSR 
JMP 


JMP 
ExIT 


Ni 


K TENABLE 
+ cohen 


200 
TST 


7° 
s;LOCAL TEXT MESSAGES FOR TEST 


;LOCAL STORAGE FOR THIS TEST 


3¢ 
;LOCAL STORAGE FOR THIS TEST 


TTION2: 
TVSAV2: .WORD 
TPSAV2: .WORD 
T38DLY: .WOR 
.BLKB 
T38PACKET: 
.WORD 
. WORD 
«WORD 
. WORD 
T38TAD: 
T38BSO: .BYTE 
T38BS1: .BYTE 
T38BS2: .WORD 
- WORD 
T38BFR: .BLKW 
T38EB: WORD 
T38PKe2: 
. WORD 
.WORD 
. WORD 
. WORD 
T38DTA: 
. WORD 
. WORD 
. WORD. 
T38EAI: .WORD 
T38BSW: .WORD 
.BLKB 
T38PK3; .WORD 
. WORD 


-WORD O 
te) 
0 


0 
10-<.-TSV2E7> 
140006 

T38TAD 

0 

10. 

0 

0 

0 


° 
150. 


10-<, -TSV2E7> 


140004 
aie 


10. 


T38BFR 
0 

256. 

0 , 
0 

10-<, -TSV2E7> 
Laoaiz 


SEQ 220 


sNO KT11 STUFF EITHER 

sGO PRINT MESSAGE BUFFER CONTENTS 
;GO BACK TO MENU 

sREALLY RETURN TO THE SUPERVISOR 


;LEAVE TEST 
TRAP CsExIT 
«WORD L10075-. 


;WORD SET IF SUPERVISOR TTI INTER OFF 


sSAVE TTI VECTOR 
;SAVE TTI PRIORITY 


;DELAY COUNTER FOR TEST 

;COMMAND PACKET FOR TEST 

sWRITE SUBSYSTEM MEM. CMD, ACK,CVC=1 
sADDRESS OF CHARACTERISTICS BLOCK 


;STARTING VALUE OF BLOCK SIZE 


;CHARACTERISTICS DATA BLOCK 


;68SELO BYTE 
;BSEL1 BYTE 
;BSEL1 WORD 


;MESSAGE BUFFER 
;END OF BUFFER ADDRESS 


;COMMAND PACKET FOR TEST 
sWRITE CHARA. MEM. CMND., ACK,CVC=1 
sADDRESS OF SELECT DATA BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
;SELECT DATA BLOCK 

:ADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 
sEAI BIT WORD 

sDRIVE SELECT WORD ETC 


;MESSAGE BUFFER RELEASE COMMAND 
;NOT USED 


TSVS - HARDWARE TESTS 
TEST 10: MANUAL INTERVENTION 


071754 
071756 
071760 


071762 
071770 
071772 
071774 
071776 


073115 


073142 
073156 


000000 


073166' 
073435’ 


MACRO M1113 O1 


164 141 
116 045 
123 123 
122 111 
122 111 
122 111 
157 156 
116 045 
116 045 
116 045 
157 156 
116 045 
116 045 
163 040 
141 156 
073240' 073266' 
073500' 073543’ 
123 105 
O11 060 
061 O11 
062 O11 
063 O11 
064 O11 
065 O11 
066 O11 


Be 


-FEB-84 17:02 SEQ 221 
-WORD O sNOT USED 
«WORD O sNOT USED 
-WORD O sNOT USED 
3 
sWRITE TAPE PACKET 
3 
-BLKB = 10-<, -TSV2E7> 
T36PK4: .WORD 140005 sWRITE, ACK, CVC*1 COMMAND 
T36WR: .WORD sADORESS OF WRITE BUFFER 
-WORD 0 sMORE ADDRESS OF WRITE BUFFER 
T38SIZ: .WORD 256. sSIZE OF RECORD 


3° 
sLOCAL TEXT MESSAGES FOR TEST 


“EVEN 


3° 
sLOCAL STORAGE 


‘Stend-elone Manuel Intervention Not Executed’ 

‘S@NBSA Type <RETURN> To Stop Servo Exerciser, Return To Menu’ 
‘TSSR Not Correct After WRITE, With WRITE PROTECT On’ 
‘WRITE LOCKED Bit Not Set In xXSTO’ 

‘WRITE LOCK ERROR Bit Not Set In XSTO: 

‘WRITE SUBSYSTEM MEMORY Command Not Accepted’ 

‘Contents of YTSSR Incorrect After WRITE *SussYSTEM MEMORY ' 
‘@NSA Interrupt Received’ 

‘SNBA Drive Is Now ON-LINE’ 

‘SNSA Drive Is Now OFF-LINE’ 

‘Contents Of TSSR Incorrect After MESSAGE BUFFER RELEASE’ 
‘'SNBATOggle ON-LINE Switch to Generate ATTENTION Interrupts’ 
' SNBAT ype RETURN To Return To MenusN' 

‘Is Write-Protected Tape Mounted’ 

‘Manuel Intervention’ 


1$,28,3%,4%,5%,6$ 

8$,98,108,0 

<12>' SELECT OPERATION FROM FOLLOWING OPTIONS: ’ 
<12>' 0 Display This Menu’ 

’ 1 Turn On All M7455 LED’ ‘s’ 

‘ 2 Turn OFF All M7455 LED’'s 

’ 3 Of Fline/OnLine Attention’ 

' 4 Write Protect Test’ 

‘ 5 Print Extended Transport Status’ 
: 6 Return to Diagnostic Supervisor’ 


FOR THIS TEST 


io” ae ote TiPdaven? t6R° M1115 O1-FEB-84 17:02 


6407 
08 


6446 


073544 
073546 


000000 


012701 
012721 
012721 
005021 
Ol2721 
005021 
005021 
005011 
000207 


071220' 
140206 
071230’ 


000006 


003134' 


074106' 
000003 


000010 
074153’ 
000001 


000004 


017130 


3¢ 


@T3SBPACKET,R1 
140206,(R1)>+ 
@T3B8TAD,CR1I)> 
CR1)> 
06.,CR1)> 
CR1)> 

(R1)> 

(RL) 

PC 


sLOGICAL RESPONSE TO QUESTION 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 


SEQ 222 


sWRITE SUBSYSTEM MEM, WITH ACK,CvC#1 


sADDORESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sCLEAR BSELO ANO BSEL1 
sCLEAR SEL2 

sCLEAR DATA AREA 

sRETURN 


3 
sTHIS ROUTINE PRINTS THE CONTENTS OF 
sTHE 256 BYTE MESSAGE BUFFER RETURNED BY THE 


t TSV -05 a 
rf 
; INPUT: 


910%: 


or 


PRINTX 


LOW ORDER ADDRESS OF MESSAGE BUFFER 
R1 HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: RL IS IGNORED IF KTENABLE FLAG IS CLEAR 


R1 
@T368ASO,R1,R5 


@T38AS1 


RS,R1 
R3,RO 


913% 
PC, SE TMAP 


0,R5 


sSAVE THE REGISTERS 

sSAVE LOW ORDER ADDRESS 

sADDRESS ABOVE 28K? 

36R IF YES 

3SET HIGH ORDER ADDRESS TO O 
sSAVE HIGH ORDER ADDRESS 

sSHIFT BIT15 TO C BIT 

sSHIFT TO HIGH ORDER FOR PRINTOUT 
sPRINT MESSAGE BUFFER ADDRESS 


sPRINT HEADER FOR CONTENTS 


sCOPY LOW ORDER ADDRESS 

:COPY HIGH ORDER ADDRESS 

s6R IF NOT ABOVE 28K 

sSETUP PAR ADDRESS IN RO 

sGET PAR FORMAT ADDRESS ABOVE 28K 


RS, -CSP) 

R1,-CSP) 

@T38ASO, -CSP) 
SP) 


3. 
SP RO 
CSPNTX 
@10,SP 


ery -(SP) 


De 


{Sy HARDWARE M F 

ELF [oMMRRNORE TRvzRvenVGGR° M1115 O1-FEB-64 17:02 SEQ 223 

6452 073710 010537 074254" 9138: MOV RS, TSBCNT HOLD. ADDRESS 

6458 073714 011504 911$: MOV (RS).R 'GET BUFFER ENTRY 

6454 073716 022704 125252 Cw sen 252, Re CHECK FOR NO LOAD CONDITION 

6455 073722 001417 BEQ s«928 18R, IF BUFFER WASN'T LOADED 

6456 073724 010403 MOV —s- R4 RB IMAKE COPY 

6457 073726 042708 170377 BIC 0170377,R4 }ONLY BITS 11,10,9 AND 8 ARE SAVED 

6458 073732 000241 CLC CLEAR CARRY 

6459 073734 006004 ROR RA $11 TO 10 BIT POSITION 

6460 073736 006004 ROR RA 110 TO 9 BIT POSITION 

6461 073740 006004 ROR RA 9 TO 8 BIT POSITON 

6462 073742 006004 ROR RA 8 TO 7 BIT POSITION 

6463 073744 042703 177760 BIC 0177760,R3 }ONLY BITS 3.2.1 AND O ARE SAVED 

6464 073750 060403 ADD —- RA, RB + "OR'EM TOGETHER 

6465 073752 010325 MOVs RBLCRS)> IPUT BACK IN BUFFER 

6466 073754 020527 071712' CMP «RRS OT 38EB END OF BUFFER YET 

6467 073760 001355 BNE «98 'BR, IF NOT AT END YET 

6468 073762 013705 074254: 912$: MOV T38CNT,RS SPUT ADDRESS BACK 

6469 073766 012704 000001 MOVs @1. RA ‘START BYTE NUMBER AT ONE 

6470 073772 915$: PRINTX @TSBASN.R4,(RS)> PRT MEM BUFFER W/NEWLINE 
073772 012546 MOV (RS5)+, -(SP) 
073774 010846 MOV —s- RR, - (SP) 
073776 012746 074230° MOV @TS8ASN, -(SP) 
074002 012746 000003 MOV 03, -(SP) 
074006 010600 MOV SP*RO 
074010 104415 TRAP —- CSPNTX 
074012 062706 000010 ADD -—=«- @10, SP 

6471 074016 005037 074254° CLR T38CNT :CLEAR COUNTER 

6472 074022 000412 BR 9215 SKIP OTHER PRINT 

6473 074024 9208: PRINTX @T3BASC.R4,(R5S)+ SPRINT THE CONTENTS OF MEMORY BUFFER 
074024 012546 MOV (R5)+,-(SP) 
074026 010446 MOV sR, CSP) 
074030 012746 074211° MOV @T38ASC, -(SP) 
074034 012746 000003 MOV 03, -(SP) 
074040 010600 MOV SP;RO 
074042 104415 TRAP —- CSPNTX 
074044 062706 000010 ADO 810, SP 

6474 074050 005237 074254' 9218: INC T38CNT ;BUMP COUNTER 

6475 074054 005204 INC RA ;NUMBER OF THE NEXT 

6476 074056 020427 000200 CMP «RG, 0128. DONE ALL YET ? 

6477 074062 003010 BGT 508 }BRANCH IF ALL DONE 

6478 074064 023727 074254' 000004 CMP T38CNT, 04 DONE FOUR YET 

6479 074072 001401 BEQ 9258 ‘AR, IF THREE DONE 

6480 074074 000753 BR 9208 :KEEP GOING 

6481 074076 005037 074254° 9258: CLR T38CNT CLEAR COUNTER 

6482 074102 000733 BR 915% ‘PRINT WITH NEW LINE 

6483 074104 000207 50s: RIS PC :RETURN 

6485 074106 045 116 045_-—«-T36ASO: .ASCIZ ‘SNA Message Buffer Address = #01805: 

6486 074153 045 116 045 T38AS1: |ASCIZ ‘sNSA Message Buffer Contents: ' 

6487 074211 045 101 040 TS3BASC: [ASCIZ ‘SA s#D4sA: s03° 

6488 074250 045 116 045 TSBASN: “ASCIZ ‘HNNA BytemD4NA: 503: 

.EV 

6490 074254 000000 T38CNT: “WORD ;COUNTER FOR PRINT 

6491 074256 ENDTST 
074256 L10075: 
074256 104401 TRAP CserTst 


TSVS - HAPOWARE TESTS 


TEST ll: 
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CONFIGURATION TYPEOUT 


074260 
074260 
074260 
074260 
074262 
074264 
074270 
074272 
074276 
074302 
074306 
074310 
074314 
074314 
074320 
074322 
074324 
074324 
074326 


076253’ 
077402’ 
016322" 
020320' 
075470' 


015604' 


ce 


-SBTTL TEST 11: CONFIGURATION TYPEOUT 


sTHIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 
sTHE CONFIGURATION OF THE M7455 MODULE AND TSVOS SUBSYSTEM. SPECIFICALLY, 
3 THE FOLLOWING INFORMATION IS PRESENTED: 


1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7455: ON (EXTENDED 
FEATURES ENABLED) OR OFF CEXTENDED FEATURES DISABLED), 


2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7455: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 


3.0 MICROCODE REVSION LEVEL OF THE M7455, 

4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 

5.0 UNIT SELECT CODE AND STATE CONLINE/OFFLINE, WRITE ENABLED/PROTECTED) 
OF EACH CONNECTED TRANSPORT. IN ADDITION, THE PROGRAM WILL INDICATE, 


FOR EACH ON-LINE TRANSPORT, WHETHER OR NOT IT IS EQUIPPED WITH THE 
EXTENDED TAPE STATUS READOUT FEATURE. 


sTHE OPERATOR IS EXPECTED TO READ THE PRINTOUT AND VERIFY THAT IT MATCHES 
3 THE ACTUAL CONFIGURATION AT HAND. IF, FOR EXAMPLE, THE PROGRAM INDICATES 
;THAT IT “SEES” TWO TRANSPORTS CONNECTED WHEN IN FACT ONLY ONE IS PRESENT, 
sTHE OPERATOR MUST INTERPRET THIS AS AN ERROR AND ATTEMPT TO FINO THE 
sCAUSE (BAD CABLE, FAULTY UNIT-SELECT DECODING IN THE TRANSPORT, ETC.). 
s(SINCE THE CONTROLLER CAN ONLY ACCESS UNIT O IF IT IS IN “STANDARD” 
sMODE, THE PROGRAM WILL FORCE THE MODULE INTO EXTENDED MODE VIA THE 

TWRITE SUBSYSTEM MEMORY COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS. } 
; 


3 

;THIS ROUTINE, WHEN ITS ACTIONS ARE COMPLETED, WILL EXIT BACK TO THE 
sDIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE 
;SELECTED (E.G., FROM THE INITIAL STARTUP DIALOG), THE ROUTINE WILL BE 
sREENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED. 

: 


BGNTST a 
RFLAGS RO ;GET OPERATOR FLAGS 
TRAP CSRFLA 
BEQ 10$ ;6R, IF OK TO RUN 
MOV @TSONE ,RO ;"TEST NOT EXECUTED” 
BR 11$ sJUMP OUT OF TEST IF NOT 
10$; MOV @TST39ID,RO ~ sTEST ID MESSAGE 
118; JSR PC, TSTSETUP 300 THE COMMON SETUP 
JSR PC, CHKMAN sIS MANUAL INTERVENTION ALLOWED? 
6cS 20% s3B8R, IF MANUAL INTERVENTION ALLOWED 
am JMP 64% ;JUMP TO OUT IF NOT 
JSR PC,SOFINIT . 300 SOFT INIT OF CONTROLLER 
BCS 253 3BR IF SOFT INIT = OK 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERROF ERRNO,SFIERR,SFIMSG sDEVICE FATAL ERROR DURING INIT 


TRAP CSEROF 
. WORD 1101 


SEQ 224 


TSVS - HARDWARE TESTS 
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6564 
6565 


6566 
6567 
6568 


6569 
6570 


6571 


6572 
6573 
6574 


6575 
6576 


074330 
074332 
074334 
074334 
074336 


003646' 
011644° 


104406 
013737 
012704 
004737 
103405 
010001 


104456 
002116 
0050S2' 
011644' 


104406 
013701 


012746 
012746 


012746 


012746 
0600 


012746 
012746 
010600 
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25$: CKLOOP 
002202' 076220' MOV 
076200' MOV 
010472' JSR 
BcS 
MOV 
ERRHRD 
50$: CKLOOP 
075530' MOV 
PRINTX 
077121" 
000001 
000004 
000200 BIT 
BNE 
PRINTX 
077245’ 
000001 
000004 
BR 
100$: PRINTX 
077254' 
000001 
000004 
110$: PRINTX 
077173' 
000001 
000004 
000100 BIT 
BNE 
. PRINTX 
077245’ 
000001 
000004 
BR 
1208: PRINTX 
077254' 
000001 


re 


UNITN, T390SW 
@TS9PK2 ,R4 
PC, WRTCHR 
S0$ 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


T39BFR+12,R1 
@TS9OSFS 


@BIT7,R1 


@T39SBS 


O6IT6,R1 


. WORD 

. WORD 
sLOOP IF SELECTED 

TRAP 


sSET UNIT NUMBER 


SEQ 225 


SFIERR 
SF IMSG 


CsCLP1 


sSUBROUTINE NEEDS PACKET ADDRESS 


sISSUE WRITE CHARACTERISTICS 
368R, IF COMMAND ISSUED OK 
sSAVE CONTENTS OF TSSR 


sWRITE CHARACTERISTISC FAILED 


sLOOP IF SELECTED 
TRAP 


CSERHRD 


CsCLP1 


sGET xXST2 STATUS FROM MESSAGE BUFFER 


;"STATE OF EXTENDED FEATURES SW 
Vv 


sCHECK STATE OF E.F.S. 
3BR, IF EXT. FEA. SW. IS ON 
_* OFF" 


ADD 
;SKIP OTHER PRINT STATEMENT 
Hy “ ON ” 


ADD 
sCHECK STATE OF BUFFERING SW 
yee BUFFERING IS ON 
: oo “ 


ADO 
+9 OTHER PRINT STATEMENT 
3 ” i 


@T39SFS, -CSP) 
P) 


@T390FF ,-CSP) 
#1, -(SF) 

SP ,RO 

CSPNTX 

4,SP 


@T390N, -CSP) 
P) 


@T39SBS, -(SP) 
#1,-(SP) 

SP ,RO 

CSPNTX 

24,SP 


@TS9OFF,-CSP) 


#T390N, -(SP) 
#1, -(€SP) 
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6577 
6578 
6579 


6580 


6586 


074550 
074552 
074556 
074562 
074566 
074566 
074572 
074576 
074602 
074604 
074606 
074612 
074616 
074620 
074622 
074622 
074624 
074626 
074630 
074632 
074632 
074634 
074642 
074646 
074652 
074654 
074656 
074656 
074660 
074662 
074664 
074666 
074666 
074670 
074674 
074676 
074704 
074712 
074716 
074722 
074726 
074730 
074732 
074732 
074734 
074736 
074740 
074742 
074742 
074744 


074750 


104415 
062706 
042701 
010137 


013746 


004737 
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000004 
177700 
077340' 


077340' 
077263' 
000002 


000006 
015604' 


002202' 


000000 
016146' 


076200' 


010472' 


076220' 


075511' 
075510' 


130$: BIC 


MOV 
PRINTX 


140$: 


150%: 


160$: CKLOOP 


MOV 


Ge 


#177700,R1 
R1, TS9RL 
@TSOMCL , TSORL 


PC, SOF INIT 
140$ 


RO,R1 
ERRNO, SF IERR, SF IMSG 


UNITN, T390SW 
@T39PK2 ,R4 
PC,WRTCHR 
150% 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


EXTFEA 


@T39PACKET, R4 
R4, TSDBCRS) 
PC, CHKTSSR 
160$ 


RO,R1 
ERRNO, TS9NBA,PKTSSR 


@T39PK2,R4 


SEQ 226 


TRAP 


ADD 
sONLY LEAVE MICROCODE REV LEVEL 
sLOAD UP REV LEVEL 


CSPNTX 


s"MICROCODE REVISION LEVEL *O00XxXx” 
MOV T39ORL , -CSP) 
MOV @T39OMCL , -CSP) 
MOV #2,-(SP) 
MOV SP RO 
TRAP CSPNTX 
ADD 96,SP 

300 SOFT INIT OF CONTROLLER 

sBR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 
TRAP CSERDF 
-WORD 1103 
«WORD SFIERR 
. WOR SF IMSG 

sLOOP IF SELECTED 

TRAP CsCLP1 

sSET UNIT NUMBER 

sSUBROUTINE NEEDS PACKET ADDRESS 

sISSUE WRITE CHARACTERISTICS 

3BR, IF COMMAND ISSUED OK 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 

TRAP CSERHRD 

"WORD 1104 
«WORD WRTMSG 
-WORD  SFIMSG 


;LOOP IF SELECTED 
CsCLP1 


s;CHECK FOR EXTENDED FEATURES SW SWITCH 
;BR IF SWITCH IS ON 
sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
sWRITE SUBSYS MEM PACKET 
VE COMMAND 


;ERROR, SAVE TSSR 
:TSSR NOT CORRECT AFTER pal pee 


P CSERHR 
-WORD 1105 
-WORD TS3°NBA 
«WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 


sSUBROUTINE NEEDS PACKET ADDRESS 


PUI I TTT Titi itiiiitivitiiritiiiiiiiititiiiitiiiiiiittiTiiiit iti 
i 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTICHR) 


; ; 
J FPSHOSEHESESEASSEEASEHESEEEHESASEHAESESESCEHESESESSESASSESEASEEEEEEEHEOESEED 


JSR 


PC, WRTCHR 


s ISSUE WRITE CHARACTERISTICS 


He 
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6620 074754 103405 6cs 170$ sBR, IF COMMAND 2S9Ve0 OK 

6624 074756 010001 MOV RO,R1 i SAVE CONTENTS OF TSSR 

6625 074760 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
074760 104456 TRAP CSERHRD 
074762 002122 -WORD 1106 
074764 005052’ -WORD WRTMSG 
074766 011644' -WORD SFIMSG 

6626 074770 170$: CKLOOP sSCOPE LOOP 
074770 104406 TRAP CsCLP1 

6627 074772 005037 002202' i74$: CLR UNITN sSET TO ORIVE O 

6628 974776 013737 002202' 076220' 175%: MOV UNITN, T390SW sSET UNIT NUMBER 

6629 075004 012704 076200' MOV @T39PK2 ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

6630 075010 004737 010472' JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 

6631 075014 103405 BCS 180$ ;8R, IF COMMAND ISSUED OK 

6635 975016 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6636 075020 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
075020 104456 TRAP CSERHRD 
075022 002123 «WORD 1107 
075024 005052’ «WORD WRTMSG 
075026 011644’ -WORD SFIMSG 

6637 075030 180$: CKLOOP ;LOOP IF SELECTED 

6630 075030 104406 TRAP CsCLP1 

6639 075032 016501 000002 190$;: MOV TSSRCRS),R1 sGET TSSR STATUS 

6640 075036 032701 000100 BIT @OFL,R1 sCHECK FOR OFF-LINE 

6641 075042 001414 BEQ 200$ ;BR, IF ORIVE IS ON-LINE 

6642 075044 PRINTX @T390F2,UNITN ;"ORIVE NUMBER XxX IS OFF-LINE” 
075044 013746 002202' MOV UNITN, -CSP) 
075050 012746 076514’ MOV @T390F 2, -(SP) 
075054 012746 000002 MOV @2,-(SP) 
075060 01 MOV SP RO 
075062 104415 TRAP CSPNTX 
075064 062706 000006 ADD #6, SP 

6643 075070 000137 075424’ JMP 250% :00 NOT TRY TO GET ANYMORE INFO. 

6644 075074 200$: PRINTX @&T390N2,UNITN s"ORIVE NUMBER XxX IS ON-LINE” 
075074 013746 002202’ MOV UNITN, -CSP) 
075100 012746 076560’ MOV @T390N2, -(SP) 
075104 012746 000002 MOV @2,-(SP) 
075110 010600 MOV SP ,RO 
075112 104415 TRAP CSPNTX 
075114 062706 000006 ADD @6,SP 

6645 075120 013701 075524’ MOV T39BFR+6,R1 sREAD EXTENDED STATUS (XSTO) 

6646 075124 032701 000004 BIT eBIT2,R1 :IS ORIVE WIITE PROTECTED 

6647 075130 001013 BNE 210$ ;BR, IF WRITE PROTECTED 

6648 075132 PRINTX @T39WPN,UNITN ;"ORIVE NUMBER IS NOT WRT PRO” 
075132 013746 002202’ MOV UNITN, -CSP) 
075136 012746 076676' MOV @TSOWPN, -(SP) 
075142 012746 000002 MOV @2,-(SP) 
075146 010600 MOV SP RO 
075150 104415 TRAP CSPNTX 
075152 062706 000006 ADD #6 ,SP 

6649 075156 000412 BR 220% ;SKIP OVER 

6650 075160 210$: PRINTX @T39WRT,UNITN ;"ORIVE NUMBER Xx IS WRT PRO” 
075160 013746 002202’ MOV UNITN, -CSP) 
075164 012746 076623’ MOV @TSOWRT, -(SP) 
075170 012746 000002 MOV #2,-(SP) 


075174 010600 MOV 


TSVS - HARDWARE TESTS 


6674 


6675 
6676 


075176 
075200 
075204 
07S2i2 


012727 
000000 
013727 
000000 


012746 


012746 
012746 
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000006 
125252 075616’ 
000000 075511’ 
000024 075510’ 
075500" 
000000 


075474' 


000250 
002116' 
177772 
177756 
075474" 
016146' 


075616’ 125252 


002202’ 
076421’ 
000002 


00220 
076332’ 
000002 


000006 
002202' 
002202' 


074776' 


076250' 
000001 


000003 


2208: 


2228: 


225%: 


2303: 


2408: 


250$: 


63%: 


CKLOOP 
CMP 
BNE 
PRINTX 


BR 
PRINTX 


J 
PRINTX 


Te 


#125252 , TS9BFR+100 
#0,1T398S1 

924 ,1T398S0 
@TSOPACKET ,R4 


TSSR(RS),.R1 
@SSR,R1 
225% 

250 


T390LY 
222s 
PC,.CHKTSSR 
230$ 


RO,R1 
ERRNO, TS9NBA,PKTSSR 


rs ee 
@T39ETN,UNITN 


2508 
@T39ETS,UNITN 


SEQ 228 

TRAP CSPNTX 
ADD 6 , SP 

sSET 1 LOC TO KNOWN VALUE 

sEXTENDED TAPE STATUS 

sEXTENDED TAPE STATUS 

sWRITE SUBSYS MEM PACKET 

s ISSUE COMMANDO 

sSET UP DELAY ROUTINE 

sWAIT AWHILE FOR SSR TO SET 

sSEE IF IT REALLY OID 

sJUST CHECK THAT BIT 

sBR, IF SSR IS SET 

sDELAY ABOUT .25 SEC 
MOV #250,(PC)+ 
«WORD O 
MOV LSOLY,CPC)+ 
-WORD O 
DEC —ss 
BNE 
DEC "32cec) 
BNE --20 


sSTART DELAY COUNT DOWN 


;BR, IF COUNTER IS NOT AT DONE 


iTSSR NOT CORRECT AFTER aE MISCELLANEOUS 
CSERHRD 


;LOOP IF SELECTED 
TRAP 


;DID LOC GET OVER WRITTEN 
;BR, IF IT to GET ETC. 
:"ORIVE DOESN’ T 


MOV 
MOV 
MOV 
MOV 
TRAP 

;SKIP OVER 

:"ODRIVE HAS EXT TAPE STATUS” 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

sBUMP DRIVE NUMBER 

sAT ENO OF DRIVES YET 

3;8R, IF NO MORE DRIVES 

300 NEXT DRIVE 

sNEW LINE 

MOV 
MOV 


1108 
T39NBA 
PKTSSR 


CsCLP1 


HAVE EXT TAPE STATUS 


UNITN, -CSP) 
@T39ETN, -CSP) 


UNITN, -CSP) 
@TS9ETS, -(SP) 


@T3ONFL, -CSP) 
#1, -(SP) 
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076172 


076210 
076210 
076212 
076214 
076216 
076220 
076222 
076230 
076232 


076234 
076240 
076242 
076244 
076246 


140004 
076210' 
000000 


000012 


075516’ 
000000 
000400 
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000004 
000200 


JMP 
64%: EXIT 


Je 


200 
TST 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


;LOCAL STORAGE FOR THIS TEST 


T390LY: .WORD 
.BLK 
TSOPACKET: 


T39TAD: 

T398SO: .BYTE 
T39BS1: .BYTE 
T39BS2: .WORD 


T39BFR: . 


T39PK2: 


T39DTA: 


T39EAI: .WORD 
T390SW: .WORD 


T39PK3: . WORD 


0) 
10-<,-TSV2E7> 


140006 ° 
T39TAD 


10-< e -TSV2E7> 


140004 
— 


10. 


te) 
10-<, -TSV2E7> 
140012 


i 
sWRITE TAPE PACKET 
; 


.B 
T39PK4: .WORD 
T39WR: WORD 


T39SIZ: .WORD 


10-<, -TSV2E7> 
140005 


0 
256. 


sRETURN TO SUPERVISOR 
sEXIT THIS SECTION 


SEQ 229 


MOV SP ,RO 
TRAP C$PNTX 
ADD 04,SP 


TRAP CSsExIT 
«WORD L10076-. 


sDELAY COUNTER FOR TEST 


;COMMAND PACKET FOR TEST 
sWRITE SUBSYSTEM MEM. CMD, 


ACK ,CvC=1 


sADDRESS OF CHARACTERISTICS BLOCK 
BLOCK SIZE 


sSTARTING VALUE OF 


: CHARACTERISTICS DATA BLOCK 


;BSELO BYTE 
sBSEL1 BYTE 
;BSEL1 WORD 


3;DATA 
sMESSAGE BUFFER 


sCOMMAND PACKET FOR TEST 
MEM. CMNOD 
sADDRESS OF SELECT DATA BLOCK 


sWRITE CHARA. 


ACK ,CvC=1 


sSTARTING VALUE OF BLOCK SIZE 


sSELECT DATA BLOCK 


sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sEAI BIT 


WORD 
sORIVE SELECT WORD ETC 


sMESSAGE BUFFER RELEASE COMMAND 


sNOT USED 


sWRITE, ACK, CvC=1 COMMAND 


sADDRESS OF WRITE BUFFER 


sMORE ADDRESS OF WRITE BUFFER 


sSIZE OF RECORD 


Ke 
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6742 
6743 3° 
6744 ;LOCAL TEYT MESSAGES FOR TEST 
6745 s- 
6746 
6747 
6748 
6749 
6750 076250 045 116 000 T39ONFL: .ASCIZ ‘sN’ 
6751 076253 123 164 141 T39NE: .ASCIZ ‘Stand-alone Configuration Typeout Not Executed’ 
6752 076332 045 116 045 T39ETS: .ASCIZ ‘sSNA Extended Tape Status Availiable, Drive Number D2’ 
6753 076421 045 116 045 T39ETN: .ASCIZ ‘sNSA Extended Tape Status NOT Availiable, Drive Number D2’ 
6754 076514 045 116 045 T390F2: .ASCIZ ‘sNSA Drive Number sSD28A Is Off-Line’ 
6755 076560 045 116 045 T390N2: .ASCIZ ‘sSNSA Drive Number sD28A Is On-Line’ 
6756 076623 045 116 045 T39OWRT: .ASCIZ ‘sNSA Drive Number sD28A Is Write Protected’ 
6757 076676 045 116 045 T39WPN: .ASCIZ ‘sSNA Drive Number 028A Is NOT Write Protected’ 
6758 076755 127 122 111 T39NBA: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted’ 
thd 077031 103 157 156 T39SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE SUBSYSTEM MEMORY’ 
6761 077121 045 116 045 T39SFS: .ASCIZ ‘sNSA State Of Extended Features Switch =’ 
6762 077173 045 116 045 T39SBS: .ASCIZ ‘sNSA State Of Buffering Switch =! 
6763 077245 045 101 040 T390FF: .ASCIZ ‘sA OFF' 
6764 077254 045 101 040 T390N: .ASCIZ ‘SA ON '' 
ree 077263 045 116 045 T39MCL: poy ‘sNSA M7455 Microcode Revision Level =802' 
EV 

6767 077340 000000 TZORL: .WORD O 
6768 -EVEN 
6769 EVEN 
6770 
6771 3° 
6772 ;LOCAL STORAGE FOR THIS TEST 
6773 :- 
6774 
6775 077342 000000 T39DAT: .WORD 0O ;sLOGICAL RESPONSE TO QUESTION 
6776 077344 T39REST: 
6777 077344 SAVREG ;SAVE THE REGISTERS 
6778 077350 012701 075500’ MOV @T39PACKET,R1 ;START OF THE PACKET 
6779 077354 012721 140006 MOV #140006, (R1)>+ sWRITE SUBSYSTEM MEM. WITH ACK,CVC=1 
6780 077360 012721 075510’ MOV @T39TAD,CR1)>+ sADDRESS OF DATA BLOCK 
6781 077364 005021 CLR CR1)> sEXTENDED ADDRESS 
6782 077366 012721 000006 MOV 6.,(R1)>+ 3;SIZE OF DATA BLOCK IN BYTES 
6783 077372 005021 CLR CR1)-+ ;CLEAR BSELO AND BSEL1 
6784 077374 005021 CLR (R1)> ;CLEAR SEL2 
6785 077376 005011 CLR (R1) ;CLEAR DATA AREA 
6786 077400 000207 RTS PC ;RETURN 
6787 
6788 3° 
6789 ;LOCAL TEXT MESSAGES FOR TEST 
6790 3° 
6791 
6792 077402 103 157 156 TST39ID: -ASCIZ ‘Configuration Typeout' 
6793 ~EVEN 
6,94 077430 ENDTST 

077430 L10076: 

077430 104401 TRAP CSETST 
6795 


6796 -SBTTL TEST 12: SCOPE LOOPS 
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077432 
077432 
077432 
077432 
077434 
077436 
077442 
077444 
077450 
077454 
077460 


077502 


&. 
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101025' 


101072' 
016322' 
020320' 


100146' 
015604' 


oe 
> 


THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT “SCOPE 
LOOPS” USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
THE M7455 MODULE. THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL 
"LOOP ON ERROR” OR "LOOP ON TEST (SUBTEST)” FACILITIES DON’T 
SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TESTS (I.E, THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER 
ACCESS, CAUSING A BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADDRESS 
SELECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE 
ote apt gal SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS ARE 
Vv 3 


CODE SCOPE LOOP 


HELP. PRINT THIS MENU. 

TSBA READ ACCESS 

TSSR READ ACCESS 

INITIALIZE (TSSR WRITE ACCESS) 

TSOB HIGH BYTE WRITE ACCESS 

TSOB LOW BYTE WRITE ACCESS 

TSOB MAINTENANCE -MODE WORD WRITE ACCESS 

TSOBX CTSSR HIGH BYTE) WRITE ACCESS 
CEXTENDED FEATURES SWITCH MUST BE ON 
TO USE SELECTION CODE 7) 

8 EXIT CRETURN TO SUPERVISOR) 


FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN. TYPING <RETURN> CAUSES 
AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 


NOU SWMr oO 


BGNTST _ 
RFLAGS RO ;GET OPERATOR FLAGS 
TRAP CSRFLA 
BEQ ; ;BR, IF OK TO RUN 
MOV #1 40NE ,RO ;"“TEST NOT EXECUTED” 
BR 100$ sJUST EXIT IF NOT 
MOV @TST40ID,RO sTEST ID MESSAGE 
JSR PC, TSTSETUP 300 THE COMMON SETUP 
JSR PC, CHKMAN ;SEE IF MANUAL INTERVENTION ALLOWED 
BCS es sCARRY SET IF INTERVENTION ALLOWED 
JMP 64$ sEXIT IF NO MANUAL INTERVENTION 
JSR PC, SOF INIT 3:00 A SOFT INIT 
BcS S$ sBRANCH IF OK 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO,SFIERR,SFIMSG sREPORT FATAL ERROR 


TRAP CsEROF 
-WORD 1201 
-WORD SFIERR 
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12: SCOPE L 


077504 
077506 
077512 
077516 
077522 
077524 
077526 
077532 
077534 
077540 


077706 
077712 
077714 


077716 
077722 
077724 
077726 


011644’ 


012746 


012711 


012700 
104441 
006304 


000174 

077466' 
077706' 
077716’ 
077730' 
077750’ 
077774' 


012703 
060503 
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100164’ 
000010 
020076' 


000007 
002226' 
100747' 
000001 


000004 
077466' 


000002 


177560 


177560 


5$: 


3$: 


4$: 


6$: 


10$: 
128: 


15$: 
18$: 


BNE 
PRINTF 


JMP 
MOV 
SETPR1 


ASL 


33 
#EXFMSG 


2s 
RO,R4 
@PRIO7 


TTION 
> pe aetalalmase 


TTION 

#100, 8@TTICSR 
@TTIVEC,R1 
(R1), TVECSAV 
#60$,(R1)+ 
(R1), TPRISAV 
#PRIO7,C(R1) 
@PRIOO 


TSOBCRS) 
CRS5),RO 
12s 


#TSSR,R3 


. WORD 
sMENU OF SCOPE LOOP SELECTIONS 


sMAXIMUM ALLOWED SELECTION 


3GO GET THE OPERATORS SELECTION 


sWAS ZERO SPECIFIED ? 
sREPEAT MENU IF YES. 
sEXTENDED TSSR ? 
;BRANCH IF NOT 


SEQ 232 


SF IMSG 


sCHECK FOR EXTENDED FEATURES SET 


@EXFMSG, -C SP) 


;BR, IF IT IS ON 
; WARN OPERATOR EXTENDED ge CLEAR 
MOV 
MOV 
TRAP 
ADD 


3GO BACK TO BASIC MENU 
sSAVE THE MENU SELECTION 
sRAISE THE PRIORITY nee 


TRAP 


sASSUME INTERRUPTS ARE ENABLED 


sARE TTI INTERRUPTS ON ? 
sBRANCH IF YES 

sFLAG SET IF INTERRUPTS OFF 
sENABLE INTERRUPTS . 

sSTART OF TTI VECTORS 

sSAVE THE CURRENT TTI VECTOR 
;SET NEW INTERRUPT ROUTINE 
;SAVE THE VECTOR PRIORITY 
sUSE PRIORITY SEVEN 

;LOWER INTERRUPT BR —_,. 


T 
sCONVERT TO WORD OFFSET 
; JUMP TO PROPER LOOP 
sRETYPE THE MENU 
;TSBA READ ACCESS 
;TSSR READ ACCESS 
:TSSR WRITE ACCESS 


- 3 TSOB HIGH BYTE WRITE ACCESS 


;TSOB LOW BYTE WRITE ACCESS 
;TSOB MAINTENANCE MODE 
;TSOBX WRITE ACCESS 

;LEAVE THE TEST 


sENTER MAINTENANCE MODE 
sREAD TSBA REGISTER 
;LOOP UNTIL HALTED 


sADDRESS OF TSSR REGISTER 
sPOINT TO TSVOS‘'S REGISTERS 
;READ TSSR REGISTER 

;LOOP UNTIL STOPPED 


#4,SP 


#PRIO7,RO 
CsSPRI 


#PRIOO,RO 
CsSPRI 
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077730 
077734 
077736 
077742 
077744 
077746 


077750 
077754 
077760 
077762 
077766 
077770 
077772 


077774 


000776 


Ne 
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020014' 
000002 


020014' 


000000 
020014' 


020014' 
000000 


020014’ 
000003 


077466' 000002 
000004 
100160’ 000060 
100162' 000062 
100156‘ 


000100 177560 


20s: JSR PC,GETPAT 
MOV RO.R1 
MOV OTSSR,R3 
ADD RS,R3 
228: MOV R1,(R3) 
BR 228 
25$:  CLRB  TSDBCRS) 
JSR PC,GETPAT 
MOV RO.R1 
MOV @TSDBH,R3 
ADD R5S,R3 
27s:  MOVB  R1,(R3) 
BR 278 
30$: CLRB  TSDBCRS) 
JSR PC,GETPAT 
MOV 0,R1 
MOV @TSOB.R3 
ADD R5,R3 
32$: MOVB  R1,(R3) 
BR 32$ 
35$: JSR PC ,GETPAT 
MOV RO,R1 
MOV @TSDB,R3 
ADD R5S,R3 
37$: MOV R1,(R3) 
BR 37$ 
40$: JSR PC,GETPAT 
MOV RO,R1 
MOV OTSSRH,R3 
ADD R5,R3 
42$: MOVB  R1.(R3) 
BR 423 


3¢ 
;?ROCESS CONSOLE INTERRUPTS 
3:7 


60$: MOV RO, -(SP) 
MOVB QeTTIBFR,RO 
BIC #200 ,RO 
CMPB #15,RO0 
BNE 61$ 
MOV #2$,2CSP) 
CLR 4(SP) 
MOV TVECSAV ,@@TTIVEC 
MOV TPRISAV ,A@TTIVEC+2 
TST TTION 
BEQ 61$ 
BIC #100, @@TTICSR 


SEQ 233 


;READ THE DATA PATTERN 
sDATA PATTERN FOR LOOP 
sADORESS OF TSSR 

sPOINT TO TSVOS‘'S REGISTERS 
;WRITE DATA TO TSSR 

;LOOP 


sENTER MAINTENANCE MODE 

sREAD THE DATA PATTERN 

sDATA PATTERN FOR LOOP 

sADDRESS OF HIGH BYTE OF TSOB 
sPOINT TO TSVOS‘S REGISTERS 

sWRITE THE DATA TO TSOB, HIGH BYTE 
;LOOP UNTIL STOPPED 


sENTER MAINTENANCE MODE 

;READ THE DATA PATTERN 

;DATA PATTERN FOR ‘OOP 
sADDRESS OF TSSR 

sPOINT TO TSVOS'S REGISTERS 
sWRITE DATA TO TSSR, LOW BYTE 
;LOOP UNTIL HALTED BY OPERATOR 


sREAD THE DATA PATTERN 
;DATA PATTERN FOR LOOP 
;SELECT TSOB 

sPOINT TO TSVOS'S REGISTERS 
sWRITE THE DATA PATTERN 


;LOOP UNTIL HALTED 


sREAD THE DATA PATTERN 

sSAVE THE DATA PATTERN 

;BYTE ADORESS OF TSSR, HIGH BYTE 
sPOINT TO TSVOS‘S REGISTERS 
;WRITE THE DATA TO REGISTER 
;LOOP UNTIL HALTED 


sSAVE WORK REGISTER 

;GET THE OPERATOR INPUT 
;STRIP OFF PARITY BIT 

sIS IT A CARRIAGE RETURN ? 
sJUST EXIT IF NOT 

sRETURN TO MASTER MENU 
sFORCE PRIORITY ZERO 
sRESTORE SUPERVISOR VECTOR 
sRESTORE SUPERVISOR PRIORITY 
sARE SUPERVISOR INTERRUPTS ENABLED ? 
;BRANCH IF YES 

;TURN OFF TTI INTERRUPTS 


B3 


TSVS - HARDWARE TESTS MACRO M1113 O1-FEB-84 17:02 SEQ 234 
TEST 12: SCOPE LOOPS 
6960 100142 012600 618: MOV (SP )+,RO sRESTORE REGISTER 
6961 100144 000002 RTI sRETURN FROM INTERRUPT 
6962 
6963 100146 648: 
6964 100146 633; EXIT TST sEXIT THE TEST 
100146 104432 TRAP CSExIT 
100150 000736 «WORD 1L10077-. 
tony 100152 000137 000200 658: JMP 200 sRETURN TO SUPERVISOR 
6967 a° 
6968 sLOCAL STORAGE FOR THIS TEST 
0969 :- 
6970 
6971 100156 000000 TTION: WORD 0 sWORD SET IF SUPERVISOR TTI INTER OFF 
6972 100160 000000 TVECSAV: -WORD O sSAVE TTI VECTOR 
rd 100162 000000 TPRISAV: . WORD 0 sSAVE TTI PRIORITY 
6975 
6976 3° 
tees sMENU FOR OPERATOR INPUT FOR SCOPE LOOPS 
§° 
6979 
6980 EVEN 
6981 100164 100216' 100271’ 100317' SCMENU: .WORD 1%,2%,38,4%,5%,68 
6982 100200 100470’ 100526' 100574’ -WORD 7%,8%,9%,10%,11%,128,0 
ess: 
6985 100216 012 123 105 18: -ASCIZ <12>'SELECT SCOPE LOOP FROM FOLLOWING OPTIONS:’ 
6986 100271 012 O11 060 23: -ASCIZ <12>' t+) Displey This Menu’ 
6987 100317 oll 061 O11 38: -ASCIZ ' 1 TSBA Read Access’ 
6988 100343 O11 062 Oll 48: ASCIZ ' 2 TSSR Read Access’ 
6989 100367 O11 063 011 58: -ASCIZ ' 3 Initialize (TSSR Write Access)’ 
6990 100431 O11 064 Oll 68: -ASCIZ ' 4 TSOB High Byte Write Access’ 
6991 100470 O11 065 Oll 78: -ASCIZ ' 5 TSOB Low Byte Write Access’ 
6992 100526 O11 066 Oll 88: -ASCIZ ° 6 TSOB Maintenance Mode Write Access’ 
6997 100574 O11 067 Oll 98: -ASCIZ ' 7 TSDBX (TSSR High Byte) Write Access’ 
6994 100643 O11 070 O11 108: t ae 8 Return to Diagnostic Supervisor’ 
6995 100706 000 118; -ASCIZ '‘' 
6996 100707 124 171 160 128: -ASCIZ pe os RETURN To Stop Scope Loops’ 
6997 100747 045 116 045 EXFMSG: .ASCIZ ‘ A eee Extended Features Switch Not On eee ° 
6998 101025 123 164 141 T@ONE: .ASCIZ ‘Stand-alone Scope Loops Not Executed’ 
6999 101072 123 143 157 TST4OI0: -ASCIZ ‘Scope Loops’ 
7000 .EVEN 
7001 101106 ENOTST 
101106 10077: 
101106 104401 TRAP CsETST 
7002 101110 ENOMOD 


- PARAMETER CODING MACRO M1113 01-FEB-84 17 
ion eCOBE COMBS 1 17:02 SEQ 235 
1 TITLE TSV6 - PARAMETER CODING 
i 
19 101110 BGNMOD TSV6 
101110 TSV6:: 
20 
1 
22 \SBTTL HARDWARE PARAMETER CODING SECTION 
24 gee 
25 ; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
36 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; 1 MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
38 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
39 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
30 ; WITH THE OPERATOR. 
1 ana 
32 101110 
101110 000010 “WORD L10100-L$HARD/2 
gg Lotte LSHARD: : 
34 101112 GPRMA HPM1,0,0,160010, 177776, YES GET TSBA/TSNB REGISTER ADDRESS. 
101112 000031 "WORD - TSCODE 
101114 101132" "WORD HPL 
101116 160010 "WORD TSLOLIM 
101120 177776 “WORD  TSHILIM 
35 101122 GPRMA HPM2,2,0,0,776, YES :GET VECTOR ADDRESS. 
101122 001031 "WORD TSCODE 
101124 101166' "WORD HPN 
101126 000000 "WORD -TSLOLIM 
101130 000776 "WORD TSHILIM 
36 ;GPRMD HPM3.4,0,340,0, 7, YES :GET INTERRUPT PRIORITY. 
37 101132 ENDHRO 
“EVEN 
101132 L10100: 
38 101132 104 105 126 HPML:  .ASCIZ ‘DEVICE ADDRESS (TSBA/TSOB) ° 
39 101166 111 116 124 HPM2:  ‘ASCIZ ‘INTERRUPT VECTOR 
40 101212 111 116 124 HPMS:  ‘ASCIZ ‘INTERRUPT PRIORITY 
a1 "EVEN 
a3 |SBTTL SOFTWARE PARAMETER CODING SECTION 
45 see 
46 ; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
4? ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
48 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
49 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
50 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
51 | WITH THE OPERATOR. 
i- 
53 101242 SFT 
101242 000003 “WORD L10101-L8SOFT/2 
101244 LSSOFT:; 
54 : GPRML  SPM1,0,-1, YES : GET TRANSPORT TEST FLAG. 
55 101244 GPRML SPM4‘2°-1 YES GET ITERATION CONTROL. 
101244 001130 "WORD —-TSCODE 


C3 


DS 


Sor viet BASIE KRUSE YHA 01 -FEB-84 17:02 SEQ 236 


101246 101302° .WORD SPM4 
101250 177777 .WORD -1 
56 : GPRMD SPM6,4,0,7777,0,7777, YES ; GET LOCAL ERROR LIMIT 
57 ; GPRMD SPM7,6,0,7777,0,7777, YES ; GET GLOBAL ERROR LIMIT 
58 101252 ENDSFT 
.EVEN 
101252 L10101: 
59 
60 
61 101252 105 116 101 SPM1: .ASCIZ ‘ENABLE TRANSPORT TESTS ' 
62 101302 111 116 110 SPM4:  .ASCIZ ‘INHIBIT ITERATIONS ‘ 
63 3SPM6: .ASCIZ ‘PER TEST ERROR LIMIT ' 
64 3SPM7: .ASCIZ ‘PER UNIT ERROR LIMIT ° 
65 .SBTTL PATCH AREA 
re 
‘ ° 
68 ; FINALLY A GENEROUS PATCH AREA. 
6 3 
70 ; AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7” HACK 
} ; DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 
a 
73 
La 101332 PATCH:: 
76 3 .BLKW 32. 
7 101332 .BLKW Oo, 
79 : IF NZ,.€377 
80 ; ~*. 23776 
81 3 ~ENODC 
82 101334 Leetee sSET LAST USED ADDRESS. 
EV 
101334 000000 . WORD 
101336 000000 / 0 
101340 LSLAST:: 
83 101340 E 
- .SBTTL HARD CODED P-TABLE 
gee 
oF ; DIAGNOSTIC IS PRE -PARAMETERIZED PER THIS TABLE 
gee 
88 101340 BGNSE TUP 1 
89 101340 BGNP TAB 
101340 000000 .WORD 0 
101342 000003 .WORD 110104-.72-1 
101344 110102: 
90 101344 172522 . WORD 172522 
91 101346 000224 . WORD 224 
92 101350 000240 . WORD PRIOS 
93 101352 ENOPTAB 
101352 10104; 
4 101352 ENDSE TuP 
96 000001 .END 


TSV6 - PARAMETER CODING MACRO M1113 0O1-FEB-84 17:02 SEQ 237 
SYMBOL TABLE 

ADDSSR 011736RG 002 C$AU_ = 000052 DEVORO 023146R 002 FREEHI 0031350R 002 INTCPC ©15760R 002 
ADR =* 000020 G CsAUTO= 000061 DEVNRD 023065R 002 FRESIZ 003126RG 002 INTFLA 015755R 002 
AMBTSS 006447R 002 CSBRK = 000022 DEVNXR O0230035R 002 FUSI 004113R 002 INTMAS 015754R 002 
ASSEMB= 000010 CSBSEG= 000004 DEVON. 0227335R 002 FSAU_ = 000015 INTR 016026RG 002 
A1716 = 000003 CsBSUB= 000002 DEVSUM 022676R 002 FSAUTO= 000020 INTREC 002224RG 002 
BADDAT 003156RG 002 CSCEFG= 000045 OFPTBL 002156RG 002 FS8BGN = 000040 INTVEC 015756R 002 
BADSSR 015510RG 002 CSCLCK= 000062 DIAGMC= 000000 FSCLEA= 000007 INTX 004274R 002 
BOVPCR= 177520 G CSCLEA= 000012 OICEB = FsDU) = 000016 INVERT 020734RG 002 
BENBSW 002230RG 002 CSCLOS= 000035 OSBINT 016014R 002 FSEND = 000041 IOKCKI= 000200 

BIE = 040000 CSCLPi= 000006 DUADI2 004637R 002 FSHARD= 000004 IOKSTP= 000001 

BITO = 000001 G CSCVEC= 000036 DUFLG 003112RG 002 FsHW = 000013 IPRI 002212RG 002 
BITOO = 000001 G CSOCLN= 000044 Y 002 FSINIT= ISR * 000100 G 

BITO1 = 000002 G Cs000U= 000051 EF .CON= 000036 G FSJMP = 000050 IVEC 002210RG 002 
BITO2 = 000004 G CSDORPT= 000024 EF .NEW= 000035 G FSMOD = IXE * 004000 G 

BITOS = 000010 G CsdU_ = 000053 EF .PWR= 000034 G FSMSG = 000011 IsAU = 000041 

BITO4 = 000020 G CsEDIT= 000003 EF .RES= 000037 G FSPROT= 000021 ISAUTO= 000041 

BITOS = 000040 G CSERDF= 000055 EF .STA* 000040 G FSPWR = 000017 ISCLN = 000041 

BITO6 = 000100 G CSERHR= 000056 EMAXDU 016611R 002 FSRPT = 000012 IsOU_ = 000041 

BITO7 = 000200 G CSERRO= 000060 . FSSEG * 000003 ISHRD = 000041 

BITO8 = 000400 G CSERSF= 000054 ENAINT 015762R 002 FSSOFT* 000005 ISINIT= 000041 

BITO9 = 001000 G CSERSO= 000057 ENVIRN O20450R 002 FSSRV = 000010 I$sMOD = 000041 

BIT1 = 000002 G CSESCA= 000010 EPRTSW O02200RG 002 FSSUB = 000002 I$8MSG = 000041 

BIT10 = 002000 G CSESEG= 000005 EPRT1 006172R 002 F$SW = 000014 IsPROT= 000040 

BIT11 = 004000 G CSESUB= 0000035 EPRT2 006172R 002 FSTEST= 000001 ISPTAB= 000041 

BIT12 = 010000 G CSETST= 000001 ERCM 011543R 002 GODAT 003160RG 002 ISPWR = 000041 

BIT13 = 020000 G CSExIT= 000032 ERRHI 002236RG 002 GE 002174RG 002 ISRPT = 000041 

BIT14 = 040000 G CS8GETB= 000026 ERRK 016570R 002 GETPAT 020014RG 002 IS$SEG = 000041 

BIT1S = 100000 G CS8GETW= 000027 ERRLO O002240RG 002 GETSEL 020076RG 002 ISSETU= 000041 

BIT2 = 000004 G CSGMAN= 000043 ERRNO = 1 GSCNTO= ISSFT = 000041 

BITS = 000010 G CSGPHR= 000042 ERRVEC= GSDELM= 000372 IsSRv = 000041 

BIT4 = 000020 G C$GPLO= 000030 ERTABE 003376R 002 GSDISP= 000005 IsSuB = 000041 

BITS = 000040 G CSGPRI= 000040 ERTABL 003176R 002 GSEXCP= 000400 IsTsT = 

BIT6 = 000100 G CSINIT= 000011 ESUM 016572R 002 GSHILI= 000002 JSJMP = 000167 

BIT? = 000200 G CsIN.P= 000020 EV. « G GSLOLT= 000001 KIPARO= 172340 

BITS = 000400 G CSMANI= 000050 EXBCNT= 000010 G$NO = 000000 KIPARL= 172342 

BIT9 = 001000 G CSMEM = 000031 EXFMSG 100747R GSOFFS= 000400 KIPAR2= 172344 

BOE = 000400 G C8MSG = 0000235 EXPBRE 015312RG 002 GSOFSI= 0003576 KIPARS= 172346 

BRINIT 004453R 002 CSOPEN= 000034 EXPO 002232RG 002 GSPRMA= 000001 KIPAR4= 172350 e 
BSELO = 000000 CSPNTB= 000014 EXPGOT 004527R 002 GSPRMD= 000002 KIPARS= 172352 

BSEL1 = 00000 CSPNTF* 000017 EXPGT2 004565R 002 GSPRML= KIPAR6= 172354 

CHKAMB 015654R 002 CSPNTS= 000016 EXPMSG 002322RG 002 GSRADA= 000140 KIPAR7= 172356 

CHKMAN 002 CSPNTX= 000015 EXPREC 015504RG 002 G$RADB= 000000 KIPORO= 172300 

CHKTSS 016146R 002 CS$QIO = 000377 EXTA 005604R 002 GSRADD= 000040 KIPOR1= 172302 

CKDROP 017014R 002 CSRDBU= 000007 EXTEND 005602R 002 GSRADL= 000120 KIPOR2= 172304 

CKEMAX 016714R 002 CSREFG= 000047 EXTFEA O002226RG 002 GERAD. « 000020 KIPORS= 172306 

CKMSG 011170RG 002 CSRESE= 000035 ESEND = 002100 G$xFER= 000004 KIPOR4= 172310 

CKMSG2 011310RG 002 CSREVI= 0000035 ESLOAD= 000035 GSYES = 000010 KIPORS= 172312 

CKRAM 010724RG 002 CSRFLA= 000021 FATERR= HIADDR= 001400 KIPOR6= 172314 

CKRAM2 011034RG 002 CSRPT = 000025 FATFLG 002222RG 002 HOE = 100000 G KIPOR7* 172316 

CMDPKT 021010RG 002 CSSEFG= 000046 FERCM 011532R 002 HPM1 10113aR 002 KTENAB 003154RG 002 
CMPMEM 017500R 002 CSSPRI= 000041 FIFEXP O12000RG 002 HPM2 101166R 002 KTFLG  0031352RG 002 
CONFIG 017062R 002 C&SVEC=* 000037 FIFIMS 012052R 002 HPMS 101212R 002 KTINIT 020536R 002 
COUNT 002310RG 002 CSTPRI= 000013 FIF2MS 012121R 002 IBE = 010000 G KTOFF 017106R 002 
CSRADD 2206RG 002 DATA 002312RG 002 FILLME 017234R 002 IDU) = 000040 G KTON 017070R 002 
CTAB 003164RG 002 DATASC 020052R 002 FNOINT 004211R 002 IER = 020000 G LERRMA 002172RG 002 


CTABE 003176RG 002 DEBUGM 011442R 002 FORCER 002176RG 002 IFAULT 004252R 002 LERRNO= 000000 
CTABM 003164RG 002 DEVCNT 002220RG 002 FREE 003124RG OC2 INCERK 016656R 002 LISTAL= 000001 


TSV6 - PARAMETER CODING 
SYMBOL TABLE 


B88 


002 


002114RG 
002014RG 


MACRO M1113 0O1-FEB-84 17:02 


021572R 
000100 


101332RG 
O20050R 


002 


002 


01405aR 


SEQ 238 


TSV6_ - PAR 
SYMBOL TAB 


REWINO 
RMCHBE = 
RMCHEN= 


$1. IHE= 
$i.IID= 


010624RG 
000167 
200 


AMETER CODING 
LE 


002 


MACRO M1113 O1-FEB-84 17:02 


TST40I 


101072R 


TS$RPT= 


OO02000RG 
002176RG 
021316RG 
023216RG 


002 


T14RES 


T14RST 


TI7EXS 


026124R 


SEQ 239 


TSV6_ - PARAMETER CODING MACRO M1113 01-FEB-84 17:02 SEQ 240 
SYMBOL TABLE 

T17L00 040144R 002 TIORFI 061606R 002 T203SS 065052R 002 T39DLY 075474R 002 WC.IFE= 000002 

TL7MSK 046116R 002 TIORSF 061540R 002 T204SS 065117R 002 T39DSW 076220R 002 WC.IGO= 000001 

T17PAC 047740R 002 TIORST 061370R 002 T205SS 065162R 002 T3S9DTA 076210R 002 WC.IRE= 000010 

T17PK2 O5S0110R 002 TI9SET 061760R 002 T206SS 065226R 002 T39EAI 076216R 002 WC.IRW= 000004 

TI7RFI 047646R 002 TI9SEX 061722R 002 T208SS 065271R 002 T3S9ETN 076421R 002 WC.IOT= 000100 

TI7RSF 047544R TI9SNP 061562R 002 T23A 003144RG 002 T39ETS 0763352R 002 WC.I1T= 000040 

T17SET 047706R 002 T19SRD 061520R 002 T238 003146RG 002 T39MCL 077265R 002 WC.ISR= 000020 

T17SNP 047S566R 002 T19SSR 057765R 002 O026200RG 002 TS9NBA 076755R 002 WF.IED= 000010 

T17SRD 047524R 002 TI9WCT 061662R 002 T3BFLG 003150RG 002 TSONE  076255R ° 002 WF.IER= 000004 

T17SSR 046365R 002 TISWFI 061 002 13.1 026226R 002 T3SONFL 076250R 002 WF.IHI= 000200 

T17WFD 046244R T19WFM 061702R 002 T3.2 026566R 002 TS90FF 07724SR 002 WF.IRE= 000040 

T1I7WFI 047612R 002 TISWST 0612635R 002 13.3 027056R 002 T390F2 076514R 002 WF.IWF= 000020 

T171CM 04670S5SR T191CM 060420R 002 13.4 027354R 002 T390N 077254R 002 WF.IWR= 000100 

T172CM 046767R 002 T192CM 060502R 002 T38ASC 074211R 002 T39ON2 076560R 002 WF.I3SR= 000002 

T172SS 046422R 002 T192SS 002 T38ASN 0742350R 002 T39PAC 075S500R 002 WF.I4R= 000001 

T173CM 047063R 002 T193CM 060576R 002 T38ASO 074106R 002 T39PK2 076200R 002 WRICHR 010472RG 002 
T173SS 04 002 T193SS R 002 T38AS1 074155R T39PK3 076230R 002 WRTERR 005107R 002 
T174CM 047147R 002 T194SS 060131R 002 TS6BFR 0712356R 002 T39PK4 076240R 002 WRIMSG 005052R 002 
T174SS 046535R 002 T1 002 T38BSO 0712350R 002 T3ORES 077344R 002 WSMBK 021020RG 002 
T17SCM 047232R 002 T195SS 060174R T38BS1 071231R 002 TS9RL 077340R 002 XFERAS 0O15550R 002 
T175SS 046576R 002 T196CM 060740R 002 T38BS2 071232R 002 T39SBS 077175R 002 XNXM 016206R 002 
T176CM 047306R 002 T196SS 060240R 002 T38CNT 074254R 002 T39SFS 077121R 002 XORBFO 007506R 002 
T176SS 046642R 002 T197CM 0610235R 002 T3S8DAT 073544R 002 T39SIZ 076246R 002 XORFOR 007624R 002 
T177CM 047414R 002 T197SS 0603035R 002 T38DLY 071212R 002 T39SSR 077031R 002 XSTO = 000006 

TI8BFR 051442R 002 T198CM 061111R 002 T380SW 071740R 002 T39TAD 0O75510R 002 XST1 = 000010 G 
TISCMP 051145R 002 T198SS 060352R 002 TS8DTA 0717350R 002 T39WPN 076676R 002 xST2 * 000012 G 

T18DAT 051430R 002 T1 061200R 002 T38EAI 071736R 002 T39WR  076242R 002 xXSTS = 000014 G 

Ti80T2 051500R 002 T2 024206RG 002 T38EB 071712R 002 T39WRT 076625R 002 XST4 = 000016 G 

TIBEXP 050706R 002 T2.1 024224R 002 T38ID 073115R 002 T4 031524RG 002 XSOBOT= 000002 

T18LO0 050246R 002 T2.2 024474R 002 T38INT 072506R 002 T4.1 031554R 002 XSOEOT= 000001 

T18MSK 050702R 002 T20BEN 066272R 002 T 073604R 14.2 002 XSOIE = 000040 

T1I8PAC 051420R 002 T20BFR 066152R 002 T38MSG 0735055R 002 14.5 03245eaR 002 XSOILA= 000400 

T16PK2 051470R 002 T20BFS 066172R 002 T38MS1 072716R 002 T4ONE 101025R 002 XSOILC= 001000 

TI8SET 051310R 002 T20CLE 066054R 002 T38MS2 073011K 002 TS 034314RG 002 XSOLET= 

T18SMI 051266R 002 T20CLR 065642R 002 T38MS3 072055R 002 15.1 034332R 002 XSOMOT= 000200 

T18SRD 051246R 002 T20CWP 065547R 002 TS8NBA 072342R 002 15.2 035412R 002 XSONEF= 002000 

T18SSR 050775R 002 T20ODAT 066140R 002 T38NE 072000R 002 T6 040116RG 002 XSOONL= 000100 

T18xS 050732R 002 T200T2 066310R 002 T38OFL 072572R 002 16.1 040144R XSOPED= 000010 

T182SS 051032R 002 T20EXE 064722R 002 TSBONL 072536R 002 16.2 040434R 002 XSORLL= 010000 

T183SS 051076R 002 T20EXP 064602R 002 T38PAC 071220R 002 16.5 041644R 002 XSORLS= 040000 

TI9BEN 062212R 002 T20EXS 064622R 002 T38PK2 071720R 002 16.4 043204R 002 XSOTMK= 100000 

T19BFC 057536R 002 T20L00 062354R 002 T36PK3 071750R 002 16.5 043562R 002 xXSOVCK= 000020 

T19BFR 062072R 002 T20MSK 064576R 002 T3S8PK4 071770R 002 16.6 045034R 002 XSOWLE= 004000 

T19BFS 062112R 002 T20PAC 066150R 002 T3B8RES 0735546R 002 T7 3ORG 002 XSOWLK= 

TI9CLE 061740R 002 T20PK2 0663500R 092 T38SIZ 071776R 002 T8 051510RG 002 XXCOMM 003122RG 002 
T19CLR 061474R 002 T2ORFI 065726R 002 T38SSR 072416R 002 T8.1 051526R XSALWA= 

T19CNV 062004R 002 T2ORSF 065446R 002 T36SST 07 002 18.2 053526R 002 X$FALS= 000040 

T19DAT O62060R 002 T20SET 066074R 002 TS8TAD 071230R oo2 18.5 055014R 002 X$OFFS= 000400 

T190T2 0622350R 002 T20SEX 066036R 002 T36WLE 072275R 002 18.4 056264R 002 X$TRUE= 000020 

TI9EXE 057722R 002 T2O0SRD 06 002 TS8WR 071772R 002 19 062336RG 002 X1.COR= 020000 

T19EXP 057602R 002 T20SSR 064751R 002 T36WRL 072234R 002 T9.1 062354R 002 X1.0LT= 

TI9EXS 057622R 002 T20SWP 0655357R 002 TS8WRT 072150R 002 * 000200 G X1.MBZ= 017375 

T19.00 051526R 002 T20WFI 065746R 002 T3S9BFR 075516R 002 UNITN 002202RG 002 X1.RBP= 000400 

TLIOMSK 057576R 002 T20WFM 002 T398SO 075510R 002 UNREC = X1.SPA* 040000 

T19PAC O062050R 002 T2OWMI 066022R 002 T398S1 075511R 002 USI 004117R 002 X1.UNC= 000002 

T19PK2 062220R 002 T2OWNP 065706R 002 T39B8S2 075512R 002 WAITF 016060RG 002 X2.BUF = 000100 

T19PRE 057534R 002 T202SS 065006R 002 TS9DAT 077342R OC2 WC. IFA* 000200 X2.ExT= 000200 


TSV6 - PARAMETER CODING MACRO M1113 0O1-FEB-84 17:02 
SYMBOL TABLE 


X2.0PM= 100000 x2.UNI= 000007 X3.MDE= 177400 
X2.RCE* 040000 X2.WCF= 002000 X3.0PI= 000100 
X2.REV= 000077 x3.0CK= 000010 X3.REV= 000040 
X2.SPA= 035400 X3.MBZ= 000006 X3.RIB= 000001 
- ABS. 000000 000 

000000 001 


ABS 101352 00 
ERRORS DETECTED: 0O 


VIRTUAL MEMORY USED: 31056 WORDS ( 122 PAGES) 
DYNAMIC MEMORY: 20614 WORDS ( 79 PAGES) 
ELAPSED TIME: 00:51 


:47 
CZTSBA,CZTSBA. SEQG/ -SP=SVC/ML, TSV1B, TSV22B, TSV3B, TSV4, TSV55B, TSV6 


13 


X3.SPA= 
X3.TRF* 
X4.HSP= 
x4.MBZ= 


SEQ 241 


X4.RCE= 040000 
X4.TSM= 020000 
X4,.WRC= 000377 


